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ABSTRACT 


This thesis identifies a potential weakness in the 
Federal Government's policy in the area of Contract 
Administration relating to computer prepared forms and 
documents. In particular, the preparation of Contract 
Progress Payment Requests (Standard Form 1443). It is the 
author's thesis that the Government, which gave us the 
"Standard Form," should take a leadership role in developing 
the "Standard Program," and that these programs’ be 
distributed to contractors free of charge in an effort to: 
1. Establish and maintain program standards concerning 
content and documentation, and 2. Eliminate, to the maximum 
extent possible, mistakes in form preparation caused by math 


or logic errors. 
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I. AN OVERVIEW 


This thesis will attempt to acquaint the reader with the 
concept of manually prepared forms in general and progress 
payments on Federal contracts in particular. A brief 
background on the purpose served by this type of contract 
financing will be given, including direct and indirect 
advantages to the government. The mechanics of how this 
system is administered will also be reviewed. The next 
major section of this thesis will advance several theories 
on how this system can be made to function more efficiently 
by using various forms of automation. Finally, a summary 
statement will be made, and conclusions drawn. Much of the 
background information for this thesis draws on the author's 
experience as a Contract Administrator at DCASMA Denver and 
as the Acting Deputy Director, Office of Telecommunications 
and Information Systems (OTIS) at DCASR St. Louis, Missouri. 
Pee oY NOPSTS OF THE PROBLEMS ASSOCIATED WITH USING FORMS 

IN GENERAL 

When the Government printed the first Federal Income Tax 
form in 1911, the intent then, as now, was to provide a 
means of data transfer from the taxpayer to the Government 
in a standardized manner. That first tax return consisted 
of some taxpayer identification information and only two 


calculations. There were no supporting schedules, or even 


instruction boots The form was simple and self 
explanatory. In 1911 it worked very well. The Government 
has not changed its thinking much over the last three 
quarters of a century when it comes to forms. They are 
relatively cheap to produce, and they create a standard to 
which users of the form must adhere in order for the forn, 
whatever its intended use, to be accurately processed. 

The first taxpayers were asked to multiply their 
earnings in excess of $10,000 by 3% in order to determine 
the tax due if any. In sharp contrast, the Government's 
current Progress Payment Request Form (Standard Form 1443) 
contains the following instruction for only one of the over 
30 data eiements on the form: 

ii enimec© ae. Of the costs reported in item 11, compute and 
enter only costs which are properly allocable to items 
that have been delivered, invoiced and accepted to the 
applicable date. In order of preference, these costs are 
to be computed on the basis of one of the following: (a) 
The actual unit costs of items delivered, giving proper 
consideration for the deferment of the starting load costs 
or, (b) projected unit costs (based on experienced costs 
plus the estimated costs to complete the contract), where 
the contractor maintains cost data which will clearly 
ectaklish the reliability of such estimates. 

Clearly, it can be seen that the complexity faced by 
forms users has increased dramatically. Like most major 
business decisions (or any other type for that matter), a 
periodic review would seem prudent in order to determine if 


the original problem is still being solved in the most 


expeditions manner. Unfortunately, until the current 


decade, there has been no real alternative to filling out 
forms in order to conduct business with the Government. 

As demonstrated in the instructions quoted above, the 
data that the Government requests may not be entirely clear 
to the user. In addition, there are math operations 
required, not just with numbers appearing on the form in 
question, but with cumulative values carried forward from 
previous forms in a series, or with figures appearing in 
other documents (1.e., contracts). To this already complex 
task, add the requirement that only whole dollars may be 
portrayed on the form, and that all amounts must be rounded 
up, and it 1s easy to see why so many Government forms are 
returned for correction and resubmission. In a June of 1987 
audit report, The Naval Audit Service reported that they had 
audited over $41 billion in progress payments from a single 
Naval Plant Representative Office. The auditors concluded 
that $8.6 million had been over paid and that $5.9 million 


of that amount was due to "math errors." [Ref. 1] 


B. INTUITION, INNOVATION AND LEADERSHIP 

Just as individuals can take things for granted, 
businesses (and governments) can be lulled into a state of 
inactivity because the perceived priority of a given problem 
Simply doesn't seem high enough. In 1986 Mr. Roy Rowan 
wrote a book entitled, The Intuitive Manager. The essence 
of this book is that many successful managers have 


acknowledged and developed an intuitive sense of what 


constitutes a good course of action. One passage in 
particular bears repeating: 


Constantly accumulating new information and numbers, 
without giving the mind a chance to percolate and come to 
a conclusion intuitively, can delay any important decision 
until the time for action expires. 


This quote came from the chapter titled, "Analysis 
Paralysis," surely something that the Government could 
conceivably be accused of from time to time. The relevance 


of this line of discussion to the forms question is this; 
In an era where microcomputers are being used in businesses 
ranging from sole proprietorships to multinat meme 
conglomerates and used for everything from word processing 
to balancing checking accounts, doesn't it seem a little 
inane to ask a contractor on a multimillion dollar contract 
to multiply line 5 by line 6b and type the properly rounded 
answer on a piece of paper? 

In 1985, Peter Drucker wrote in his best seller, 


Innovation and Entrepreneurship: 


...public service institutions (governments) need to build 
into their policies and practices the constant search for 
innovative opportunity. They need to view change as an 
opportunity rather than a threat. 
This thought bears directly on the subject at hand. With 
progress payments in particular and all forms in general, 
there is a clear need for innovation in an area where 
intuition tells us that there must be a better way. If the 


Government doesn't take a leadership role soon, contractors 


or even third party software vendors will develop ways to 


eliminate the tedium and error prone nature of hand prepared 
forms. In the author's opinion, there are three compelling 
reasons why the Government should be the innovator: 1. The 
Government has much to gain by streamlining the data 
collection process. Every time an error is detected, the 
form must be rejected and returned to the preparer for 
correction, then processed again. While this "rejection 


process" prevents the Government from making a questionable 


disbursement, it still results in processing the same 
request more than once. The ideal situation is to have the 
hemm Correct in the first place. 2. By virtue of its size 


and sovereignty, the Government can establish and enforce 
the standards needed to make such a system compatible with 
existing hardware and software. Sa The Government makes 
the rules, and prints the current manual forms. Who would 
be in a better natural position to maintain and revise 
software to keep pace with current legislative and 
regulatory changes? 

In February of 1988, LCDR John Grassi, SC, USN, speaking 
to a roundtable of Internal Auditors, discussed the concept 
of leadership in terms of integrity, competence and vision. 
It is precisely these qualities that mandate the need for 
creative change in the way the government conducts its day 
to day business with the private sector. Vision in 
particular seems to be a valuable commodity when pondering 


any departure from the status quo. As defined by LCDR 


Grassi, vision 1s sensing destiny through the details that 
concern us. In 1911, there were no viable alternatives to 
the manually prepared form; in 1988 there are. These 
alternatives should be defined, examined and acted upon, 


"...before the time for action expires." 


ears BACKGROUND AND SYNOPSIS OF THE 
PROGRESS PAYMENT SYSTEM 

A. DEFINITIONS AND EXPLANATIONS 

The Federal Government frequently contracts for goods or 
services where the deliverables are not tendered to the 
buyer until near the end of the contractual period. In the 
interim, the contractor may well be accumulating significant 
allowable and allocable costs that are directly related to 
the contract at hand but, without some form of Government 
contract financing, will not ordinarily be reimbursed until 
delivery. By providing contract financing, the Government 
can exert more influence in the marketplace by giving 
certain contractors a chance to compete for contracts that 
they would otherwise not be able to finance. This helps the 
Government to stimulate competition, support Small Business, 
broaden the industrial base and promote a higher level of 
performance. One form of Government financing is the use of 
progress payments. Authorized in FAR 32.5, a contracting 
officer may, under certain circumstances, include progress 


payments in certain fixed price type contracts. 


B. CRITERIA FOR USE OF PROGRESS PAYMENTS 
FAR 32.502 offers guidance to the contracting officer in 
deciding when progress payments may be authorized. 


-the contracting officer may provide for customary 
progress payments if the contractor 1) will not be able to 


bill for the first delivery...for a substantial time after 
the work must begin (normally 4 months or more for small 
business concerns; 6 months or more for others), and 2) 
will make expenditures for contract performance during the 
predelivery period that have a significant impact on the 
contractor's "Working. CGapital..:.To reduce Wien 
administrative effort and expense, the contracting officer 
generally should not provide for progress payments on 
contracts of less than $2P7000,000 unless (1) tie 
contractor 1S a s small business concern and the contract 
will involve approximately $100,000 or more; or (2) The 
contractor will perform a group of small contracts at the 
Same time and the total impact on working capital is 
equivalent to a single contract of $1,000,000 or more. 
C. PROGRESS PAYMENT VOLUME PER IG AUDIT 
To give the reader an idea of the magnitude of the 
dollars that flow through this system, a 1984 Inspector 
General Report [Ref. 2] estimated that in 1983, over 56 
billion dollars were disbursed to military contractors in 
the form of progress payments. The percentage of incurred 
costs that are eligible for regular progress payments has 
varied over the years, roughly coinciding with major changes 
in the cost of money in the private sector. The current 
rates are 75% for large businesses and 80% for small 
businesses. It is not within the scope of this thesis to 
discuss these reimbursement rates, contractor eligibility 
requirements or even whether or not there should even be 
progress payments. The primary focus will be on systemic 
efficiency and possible automated system improvements. 
Ostensibly, progress payments are simply a means to 


finance long term, high dollar value contracts. The 


government in effect plays the roll of working capital 


micovider. The government's investment is protected by the 
eligibility requirements placed on contractors, and by the 
passage of title to work in process to the government. 
Sincemone won che wecliglbility Criteria for a contractor 
to receive progress payments is the certification that an 
adequate accounting system is in place [{Ref. 3] to 
accurately accumulate costs, the attendant Defense Contract 
Audit Agency (DCAA) accounting system review gives’ the 
government virtually unrestricted access to a contractor's 
books. This may be a key factor in cases where a contractor 
is too small, or does not do enough government business to 
warrant audit procedures. By applying for progress 
payments, a contractor is effectively opening the door to 
DCAA. After the initial review, the contracting officer may 
elect to audit any or all subsequent progress payment 
requests. In some cases, the contracting officer may elect 
to have DCAA conduct a post-payment audit on an individual 


request (or prior to payment if there is fraud suspected). 


PreeovOoLEMIC “PROBLEM AREAS" 

One of the costs to the government in running the 
progress payment system, is the cost of administration. 
There are one time (per contract) costs to set the system in 
motion. These functions do not readily lend themselves to 
automation. Each time a contractor requests payment however 
(usually monthly, more often in special cases), a fairly 


mechanical, repetitive and well defined sequence of events 


must take place. This process centers around the prepara- 
tion, submission and payment of a progress payment request, 
Standard Form 1443, and does offer automation potential. 
1. Complex Forms 
The SF 1443 is a single legal size sheet of paper 
that resembles a tax return (see Fig. 1). The front of the 
form consists of three sections. The f1i}siaasc 
identification information (administration office, paying 
office, and COnEraCEOr) ance coneeacem cata. The second 
section contains the financial data. The third section is a 
certification signed by the contractor that the amounts are 
both allowable and allocable to the contract and that all 
restrictions and requirements have been observed. There are 
Signature blocks for the contractor and the contracting 
officer approving the payment. The back of the form has 
fairly detailed instructions. 
a. Primary Data 
Sections 2 and 3 of the form contain jen 
numerical "meat" of the request. There are 32 blanks that 
the contractor must enter with appropriate dollar values. 
It is important to make a distinction between "primary" data 
and "secondary" information. Primary data are the amounts 
on the request that constitute what the contractor is asking 
for. There are a maximum of eight lines on the SF 1443 that 
require actual contractor input, and nearly half of those 


apply only if the contractor utilizes subcontractors. 
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Figure 1. Standard Form SP-1443 
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b. Secondary Data 

The other 24 lines are secondary data; 
mathematical manipulations of primary data and data from 
previous progress payment requests on the same contract if 
any. It is this secondary data that offers the greatest 
potential for automation. The regulations governing their 
computation are fairly straight forward and easy to write 
into a program. This is also the most tedious function in 
the preparation of the form. To insure complete accuracy, 
cumulative figures must be calculated from the beginning of 
the contract to the present. Since the contract can be 
modified or amended, prices and quantities for deliverables 
may vary, making it even more difficult to reconcile. Here 
is a prime example of the mind set that created the form in 
the first place; the Government's method for controlling 
these payments is based on the cumulative "to date" figures 
appearing on the form. The contractor on the other hand; 
prepares the request from his accounting records that are 
logically divided by months (in most cases). The contractor 
must extract the current monthly information that will 
constitute the basis for his request then add those numbers 
to the cumulative prior period figures to arrive at the 


numbers that will appear on the form. We see here, the same 


problem viewed from two different vantage points. The 
problem remains the same (assumption: it is factual) but 
the logical "views" are different. This is precisely the 


jy 


type of situation that the modern relational database 
management software is designed to resolve. 
Se weoneractor Certification 
The Section I information will remain the same 


for each request except for date and progress payment 


sequence number. The Section II and III data will be 
computed and verified with each request. The certification 
statement and signature blocks however, present an 


automation problem, but not an unsolvable one. 
ad. Authorization Signatures 
The contractor's signature on the progress 
payment request attests to the document's compliance with 
the contract and its legitimacy as mentioned on the previous 
page. The contracting officer has a block assigned for the 
amount of money he or she is willing to approve for the 
request (which may or may not be the amount that the 
contractor is requesting), and a signature block. The 
contracting officer is a "warranted" agent of the United 
States. While serving in this fiduciary capacity, he is 
legally liable for the consequences of his actions. The 
contracting officer is tasked with reviewing the form for 
completeness and accuracy. 
2. Math Accuracy and Validation 
In addition to the "allowability and allocability" 
1ssue, the form must be mathematically correct before it can 


be honored. This seemingly simple task is complicated in 
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two ways. First, many of the 32 amounts are tied to the 
previous progress payment request. Some figures are 


cumulative and are carried forward from one payment to the 


next in sequence. Second, the price and or quantity of the 
individual line items (and hence the contract), may 
fluctuate via contract modification. It is possible for a 


contractor to have signed a bilateral contract modification 
prior to submitting a progress payment request, and still 
have that request rejected because the contract mod price 
changes were not "booked" prior to review of the progress 
payment request. As a practical matter, some contractors 
include copies of recent modifications if a timing problem 
is thought to exist. Simple procurements are not generally 
a problem in this area, but 70 to 100 modifications are not 
at all uncommon on larger procurements. 

To further complicate the math accuracy problen, 
progress payment requests use an unusual rounding technique. 
All block entries are required to be in whole dollars. They 
are always rounded up, i1.e., the amount $12.01 will appear 
as $13. This seems simple, but it is not "conventional," 
and indeed federal state and local tax returns by convention 
round down at the $.49 level. Many progress payment 
requests are sent back to contractors for a $1 error. 

The exact routing of progress payment requests may 
vary Slightly from one activity to the next, but in essence, 


the form is prepared and signed by the contractor, submitted 
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Gowmene Contracting officer for review and approval, then 
submitted to the paying office for validation and payment. 
That last step can be a lengthy one. DCASR's for example 
have data entry clerks type the pertinent data elements into 
a computer line for line from the approved request. 
(Author's Note: In 1981, the Defense Logistics Agency 
implemented the Automated Progress Payment Program in all of 
their DCASR's. This system 1S a computer program installed 
and run on the individual DCASR mainframe computers to 
determine the "validity" of contractor progress payment 
requests prior to payment. Other DoD activities may or may 
not have such an automated system in place.) The clerks are 
not tasked with finding and correcting errors or omissions, 
even if they are obvious. Their job is to simply transcribe 
the data into a computer. Even if a clerk wanted to correct 
one of these errors, he or she would lack legal capacity to 
do so. 
3. Consistency 

The computer, linked to the contract payment data 
base, performs a series of checks. This process is called 
validation." The computer compares the current request 
with all previous SF 1443's to insure consistency and 
mathematical accuracy. Requests are serialized to detect 
skipped or duplicate payments. If a request fails 
Validation it returned to the contractor and a notification 


1s sent to the contracting officer. The process then starts 


5S 


again. DCASR St. Louis experienced a rejection rate of 
about one in four progress payment requests on average, with 
some companies having fewer approvals than rejections. 
4. Visibility Within the System 

From the time the progress payment request leaves 
the contractor to the time it is first entered into the 
computer, the document has a fairly low visibility within 
the government "system." If a contractor calls @ene 
contracting office for status, the answer will usually 
require several subsequent phone calls to various 
departments. This creates additional administrative 
overhead for the government, and for contractors. 

5. Timeliness of Payments 

By their very nature, progress payments are rarely 
for less than a thousand dollars. Usually they are in the 
tens to hundreds of thousands range, sometimes higher. Most 
agencies exempt progress payments from the cash management 
program. Withholding payment for 30 days would, in effect, 
dilute the effectiveness of progress payments in the first 
place. The fact remains that processing the requests for 
payment requires considerable paper handling and review 
before disbursement can be authorized. The promptness of 
these payments can be a critical issue with contractors. 
One Colorado Springs aerospace industry opened ae bank 
account in St. Louis just to save the one or two day mail 


delay for checks. It is the author's thesis that 
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streamlining the progress payment system will have a dual 
benefit. The first would be to reduce the rejection rate of 
requests, reducing reprocessing costs and eliminating 
unnecessary delays in disbursing/receiving payment. The 
second would be to better facilitate (in the long run) the 
overall objective of Defense procurement; to insure an 
adequate flow of quality goods and services to the 
Department of Defense at a reasonable cost to the taxpayer. 
A contractor is more likely to bid on a contract when the 


procedure for payment is well established and predictable. 
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III. IS AUTOMATION THE ANSWER? 


A. PRACTICAL CONSIDERATIONS 
1. Availability of ADP Capacity 
Several practical considerations impact any decision 
to automate any manual system. The first is ADP capacity. 
In many cases there may be excess computer capacity 


available on site, with a clear path to procuring additional 


hardware or software as required. In other cases there may 
be limitations that will be difficult to overcome. The key 
would seem to be reasonableness. Sometimes the best 


solution to an information transfer problem is still a 
typewriter and a piece of paper. Just because an automated 
solution is possible does not make it economically 
advisable. This concept applies equally to government and 
industry. 
2. Resistance to Change 

In many offices, particularly in employees that 
received their educations prior to the "computer age," there 
is sometimes a resistance to change. When the change 
involves computers and other electronic gadgets, the 
resistance usually gets even stronger. Training offers a 
solution to this impediment. Lecture sessions and handouts 
are not enough. People must be made to realize that they 


are still the key to problem solving, and personal one on 


LS 


one practical training may be needed to convince some 


people. Sometimes a simple demonstration is all it takes to 
convince a nonbeliever. The author feels that this is a 
very important issue. As more and more mundane and 


repetitive tasks are relegated to machines, the quality of 
the work done by people becomes proportionally more 
eedeical. 
3. Legal Considerations 

Finally we come to legal restrictions. A properly 
Signed and dated progress payment request carries certain 
legal status. A senior official of the company personally 
attests to the accuracy of the document and its compliance 
with current regulations. A duly authorized agent of the 
government places his or her name and professional 
reputation on the line when they Sign. ite S pee Mp Oras al te 


however to note that the progress payment request does not 


Meet the criteria for a contract. There is not a promise 
for an act or the forbearance of an act. Not even a promise 
for a promise. A progress payment request is not a 


negotiable instrument, it is simply a request for payment. 
The certification section of the form is simply a 
restatement of the obligations of the contractor. eave: t 
were stricken from the form altogether, a case could be made 
that it would not reduce the liability of the company at all 


if fraud were detected. In the case of fraud, the signed 
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certification does provide an additional remedy, and is 
generally easier to prove than the "intent" to defraud. 
4. Availability of Solutions 

The technology exists today to totally automate the 
progress payment process. As already discussed, that does 
not make total automation a near term, or for that matter 
even a long term goal. The following paragraphs will 
explore some of the author's conceptual solutions and 
discuss the "proof of concept" program (SP-1443) in Appendix 


A. 


B. INCREMENTAL AUTOMATION 

As discussed earlier, the information section of the SF 
1443 remains essentially unchanged from one payment request 
to the next. The 32 amounts found in Sections 2 and 3 could 
be reduced to no more than eight if a computer were used to 
derive secondary data. A computer software product that 
Knows about the round up rule as well as the other 
"validation" steps used by government paying offices would 
never make a simple math error. If properly written, the 
program could alert the contractor to upcoming thresholds 
and limitations before they become a critical issue. Modern 
software does not have to ask the same question over and 
over if it already knows the answer. For example; if during 
initial set up, a contractor answers the "Are you a Small 
Business?" with "Yes," then the entry on line #9 (Paid costs 


eligible...) will always be $0. The software knows that 
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Small Businesses are reimbursed for incurred costs and that 
line #9 is not used. Using a microcomputer based progress 
payment system would have several advantages to the 
contractor; a clear, concise record of a progress payment 
transactions for a given contract, elimination of logical as 
well as mathematical errors, and reduction in preparation 
time just to name a few. 
1. Computer Generated SF-1443 

There are several ways to implement this concept. 
One Boulder Colorado firm used Lotus 123 (tm) and created a 
"Spreadsheet" to generate secondary data and maintain 
Semelnuity. Eventually the firm was successful in 
generating a report on a dot matrix printer that resembled 
the original enough to be accepted by the paying office. 
Not every company will develope independent’ software 
solutions like this, but some will. Once the decision has 
been made by a contractor to automate some portion of the 
contract management function, the question then becomes one 
of degree. Should the program stand alone, or should it be 
integrated with other accounting and management software? 
The advantage to the government of independant software 
development like this is that the contractor/developer 
remains responsible for program defects or flaws. In a 
Government supplied program, at least some of that 
responsibility would shift and the contractor may be able to 


make a case that errors or omissions on an electronically 


Zu 


prepared form may be the fault of the software. Herein, 
however, lies one of the dangers of letting a contractor or 
third party vendor create software. The resulting form may 
look correct at first inspection, it may even "validate" in 
the DLA APPP system. What the program does in unforseen 
(and unplanned for by the programmer) situations cannot be 
predicted by the government unless it conducts exhaustive 
tests on every piece of software submitted to it. For 
example, when the estimate to complete a given contract 
exceeds the difference between the contract price and the 
amount already paid, the contract is said to be ina "loss 
positien:. The net effect of this is that a contractor's 
reimbursement rate is reduced by an amount sufficient to 
insure that the government will not pay out in progress 
payments a sum greater than the price of the contract. How 
should the program react to a loss situation? Should (aie 
inform the contractor that the situation exists? Should it 
ignore the possibility by simply "backing into" the estimate 
to complete figure rather than asking the contractor to 
insert it? The point is, that the Government is the entity 
that should make these decisions in order to maintain 
accuracy and consistency. Again, the need for exhaustive 
testing is stressed in order to avoid contractor claims that 
Government provided software may result in an error. Figure 


2 is a SF-1443 created by the SP-1443 program. 
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10. INCURRED COSTS ELIGIBLE UNDER PROGRESS PAYMENT CLAUSE 


DCASMA Denver The ABC Sunshine Co. 
70 Wd. Haapoen Ave, 2233 Main St. 
Eng] ewood CO 80220-0000 Boul der CO 90330-0001 
PAYING OFFICE: 
DCASR St. Lous ‘oe SMALL BUSINESS (4. CONTRACT NUMBER 'S. CONTRACT PRICE 
1139 Wasnington St. 
St. Lous MO 69351-0000 ; C€ JYES CXJNO !: NOQO000-87-€-0100 i $ 1,000,000 
6 RATES 7. DATE OF iNITIAL AWARD 8A, eats PAYMENT REQUEST 8B. DATE OF THIS REQUEST 
A. PROG. PYMTS. (8. LIQUIDATION | A. YEAR : B. SONTH : z 03/29/88 
70.0 2 pore 4 1997 ‘ I] 
SECTION II - STATEMENT OF COSTS UNDER THIS CONTRACT THROUGH 01/15/88 
9. PAID COSTS ELIGIBLE UNDER PROGRESS PAYMENT CLAUSE i$ ee 
LI]. TUTAL COSTS ELIGIBLE FOR PROGRESS PAYMENTS (Itee 9 olus 10) 200,000 
I2a. TOTAL COSTS INCURRED TO DATE iS = 200, 000 ‘ 

b. ESTIMATED ADDITIONAL COST TO COMPLETE 800, 000 i 
13. ITEM 1] MULTIPLIED BY ITEM oa. : 150,000 
t4a. PROGRESS PAYMENTS PAID 70 SUBCONTRACTORS ‘ 0 

bd. LIQUIDATED PROGRESS PAYMENTS TO SUBCONTRACTORS : 0 : 

c. UNLIQUIDATED PROGRESS PAYMENTS TO SUBCONTRACTORS (Item [4a less 14d) 0 ; 

@. SUBCONTRACT PROGRESS BILLINGS APPROVED FOR CURRENT PAYMENT ‘ 0 ' 

@. = ]GIBLE SUBCONTRACTOR PROGRESS PAYMENTS (Item 14c olus I4e) 0 
1S. TOTAL OGLLAR ASOUNT (Item iS oius l4e) : ; 130,000 
16. ITEM S MULTIPLIED BY ITEM dd ‘ 7H),000 : 

17. LESSER OF ITEM 1S OR ITEM 16 ; 130.000 
18. TOTAL AMOUNT OF PREVIOUS PROGRESS PAYMENTS REQUESTED ‘ 73,000 
19. MAXIMUM BALANCE ELIGIBLE FOR PROGRESS PAYMENTS (Itee 17 less 18) ‘ 73,000 
SECTION TI] - COMPUTATION OF LIMITS FOR OUTSTANDING PROGRESS PAYMENTS 
# SEE SPECIAL INSTRUCTIONS CN BACK FOR USE UNDER THE FEDERAL ACQUISITION REGULATION. 
20. COMPUTATION OF PROGRESS PAYMENT CLAUSE (a(S) (i) of a(4)(i)) LIMITATION + : ‘ 
a. COSTS INCLUDED IN ITEM I!, APPLICABLE TO CELIVERED, INVOICED. AND :§ Q 
ACCEPTED TO THE DATE IN HEADING OF SECTION II. ; ‘ 
b. COSTS ELIGIBLE FOR PROGRESS PAYMENTS, APPLICABLE TO UNDELIVERED ITEMS 
AND TO DELIVERED ITEMS NOT INVOICED AND ACCEPTED (Item 11 less 20a) 200 ,000 : 
c. ITEM 20d MULTIPLIED BY ba '$ =. [50,000 
d. ELIGIBLE SUBCONTRACTORS PROGRESS PAYMENTS (Item | 4e) i 0 
e. LIMITATION a(S) (1) of a(4)t1) (Item ve olus 20d) # 130,000 
21. COMPUTATION OF PROGRESS PAYMENT SLAUSE 1315) (11) of a(4)(11)) LIMITATION # 
a. CONTRACT PRICE OF ITEMS DELIVERED, ACCEPTED AND INVOICED TD DATE IN 0 
HEADING OF SECTION II : 
b. CONTRACT PRICE OF ITEMS NOT DELIVERED. ACCEPTED AND INVOICED (Itee 5 less 2a) i 1,000,000 
c. [TEM 21b MULTIPLIED BY ITEM & 7,000 
d. UNLIGUIDATED ADVANCE PAYMENTS PLUS ACCRUED INTEREST : 0 
@. LIMITSTION (a(3) (11) or a(4)(11)) (Item 2Ic less 216) + ' 750,000 
22. MAXIMUM UNLIQUIDATED PROGRESS PAYMENTS (Lesser o¢ itee Me or 2ie) 150,000 
coe TOTAL AMOUNT APPLIED AND 79 BE APPLIED TO REDUCE PROGRESS PAYMENT ‘ 0 : 
24. UNCIQUIDATED PROGRESS PAYMENTS (Itee i8 less 23) ' 75,000 
a5. MAXIMUM PERMISSIBLE PROGRESS PAYMENTS (Itee 72 less 24) : 735,000 
26. AMOUNT OF CURRENT INVOICE FOR PROGRESS PAYMENT (Lesser of Item 25 or 19) 75,000 


27. AMOUNT APPROVED BY CONTRACTING OFFICER 





CERTIFICATION 


1 certify that the above statesent (with attacna@ents) has deen oregared fro@ the books and records of the apove-nameo contractor 
in accoroance with tne contract and the instructions nereon. ano to the best af av xnowlege and Deliet, that it :s correct. 
that all the costs of the contract oertormance ‘exceot aS nerewitnh regorted in writing) Nave oeen paid to the extent snown nerein, 
or wnere Not shown as Oald have been paid or will be oaid currently. ov the contractor, men cue, in the oroinary course of 
gusiness, ‘that the work reflected above has peen certormed, that the quantities and agounts involved are consistent witn the 
requirements of tne contract. That there are no encu@orances (exceot aS reported in writing nerewith, or on previaus oroaress 
paveent request No. ) against the proverty acquired or procuced for, and allocated or sroveriy charoeapie to tne contract 
which would affect or impair tne Governeent’s title, that there nas oeen no aaterialiy adverse cnange in the financial condition 
of the contractor since the suba@ission of the eost recent written intorration dated oy the contractor to the bovernsent 
in connection with the contract, that to the extent of any contract orovision il@iting oroaress Oavyeents pending tirst article 
approval, such nas been coaplied with, and tnat after the saking of the requested oroaress payments the unliquidated orogress 
payeents will not exceed the saxieue unliquidated progress pav@ents oy the contract. 





NAME AND TITLE OF CONTRACTOR REPRESENTATIVE SIGNING THIS 1S] GNATURE 
FORM 1 
DRAFT COPY ONLY, NOT FOR SUBMISSION !!! 





NAME AND TITLE OF CCNTRACTING OFFICER iS GNATURE 


Figure 2. Computer-generated Standard Form 1443 
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2. Contracting Officer Automated Review 


As discussed earlier, DLA implemented an automated 
progress payment review program in 1981 to run on mainframe 
computers. The intent of this effort was to reduce the 
workload on Contracting Officers by relieving them of the 
tedious mathematical and data retrieval aspects of manual 
review. The inherent flaw with the APPP system, is that it 
did not "alert" on an erroneous request until the form was 
forwarded to the paying office and keyed into the computer 
by a clerk. If a Contracting Officer really wanted to be 
confident that the request was not in error, a complete 
manual calculation and review would be necessary. Consider 
the value that a real time, accurate and complete payment 
request review would have. Not only would the error be 
caught earlier in the cycle, but the person detecting the 
error (the contracting officer) would have the knowledge and 
authority to make a correction if it were necessary. Ifa 
SF-1443 generating program makes a logical "first step" in 
automating this process, then would not using a variation of 
the program to allow the Government to review requests make 
a logical "second step"? 

3. Electronic Transmission of Requests 

Because of the inherent high dollar value of 
progress payment requests, many contractors sent these 
requests by an express mail service to insure "overnight" 


delivery. This service can cost over $14 for a single form! 
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Since nearly all Government contracting facilities are 
equipped with the capacity to receive and transmit 
commercial messages (Telex, TWX, Western Union, etc., for 
the purpose of accepting telegraphic bids) does it not make 
intuitive sense to transmit progress payment requests via 
that medium? A number of vendors, including Western Union, 
offer at a nominal charge (about $.45 for a document the 
length of a progress payment request) the ability to 
transmit a prerecorded message from a computer, via 
telephone modem, directly into the commercial message 
network. A logical "third step" perhaps? Here again the 
subject of signatures and certifications can be raised. The 
contractor may still be able to "certify" the request by 
using a predetermined code or password. The legality of 
such practices is beyond the scope of this thesis, but it is 
notable that electronically synthesized signatures have been 
used in other systems (checks, contracts etc.). The passage 
of time and the courts will have to rule on the validity of 
such methods. 
4. Automatic Review and Payment 

Since nearly all DLA administered contracts have 
been validated and paid by computer since 1981, and the 
ability exists now to create, review and transmit the 
requests electronically, it seems a short step indeed to 
eliminate the manual data entry process at the paying office 


as well and forward the "electronic" request directly to the 
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paying computer. There should be prudent safeguards of 
course. General "dial up" capability into a computer is 
usually thought of as a weakening of security. Perhaps an 
intermediate computer functioning much like an electronic 
bulletin board could receive the requests, log them in and 
do an initial screen to see that they are indeed valid 
requests. Once received and the caller disconnected, the 
information could be uploaded into the main computer for 
processing. This process would save additional time and 
avoid the possibility of a transposed number or other error 
on manual entry. This would constitute the "fourth step." 
5. Variations on the Theme 

The previous four subheads have taken a somewhat 
idealized look at the potential for incremental automation 
using a microcomputer and some form of commercial 
telecommunication. The "hard copy" form that would be 
generated would be similar to a SF-1443, but if the 
telegraphic concept were adopted, it would probably be 
abbreviated ard would, of course, lack the signatures of the 
contractor's representative and the Administrative 
Contracting =O©rftilcer, As mentioned previously, there are 
ways to accomplish the same objective electronically. The 
contractor's certification and Re authorizing signatures 
are the only aspects of the current SF-1443 that could not 


be retained in the methodology proposed above. 


26 


Setting aside these two drawbacks for a moment, what 
possible benefits could accrue to the government from such a 
system? For one thing, once something has been recorded 
electronically, there is no need to retype it. In theory, 
an incoming message of this type could be recorded on a disk 
just as easily as printing it. As an alternative to purely 
electronic processing, a diskette could be prepared by the 
contractor and forwarded to the Contracting Officer together 
with a hard copy print out bearing the certification and 
Signature of the contractor. If the contracting officer had 
a copy of the same (or similar) software, much of the review 
process could be conducted automatically. The contracting 
officer could then enter the amount approved for payment to 
line #27, sign the hard copy and forward both the hard copy 
and the diskette to the paying office. The hard copy could 
be held for backup purposes, and the diskette used to enter 
the request into the computer instead of keying it in. 
Although not as "streamlined" as the previous methodology, 
this system could still result in substantial administration 
time savings, but perhaps the biggest savings would come 
from the lowering of the rejection rate because the request 
would be inherently more accurate in the first place. 

For those who find it difficult do disburse funds 
solely on the basis of unseen magnetic imagery there is at 
least one more basic approach that might offer hope. This 


would be to retain the hard copy, computer generated SF-1443 
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complete with human signatures, and use optical scanners for 
the review and validation phases. Such technology is 
available today. The text appearing in Figures 3 and 4 was 
not "typed" in by the author, it was actually "scanned" into 
a computer using equipment in one of the computer labs at 
the Naval Postgraduate School. This solves the signature 


problem, but still requires paper handling by humans. 


Implementation of DODD 5500.7 
Developed by MN 4371 Policy Class 


#1 1. Top management must set the example and insist on 
keeping issue alive throughout organization (14) 


#3 2. Emphasize enforcement (14) 
3. Centrally managed policy--unified standards (12) 
4. Familiarize employees with real temptations in the 


workplace; be specific (12) 


Figure 3. Scan Document #1 


A Portion of text generated on a dot matrix printer and 
scanned into a word processing text file. The (12) was 
relocated to the next line because of margin settings for 
this thesis. A portion of a DoD Directive concerned 
Standards of Conduct. This document was a photocopy of the 
actual report and was scanned as Figure 4. The periodic # 


symbol indicates an unreadable character. 
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SUBJECT : Stanadarads o£ Conduct 


References: (a) DoD Directive 5500.7, subject as above, 

January 15, 1977 (hereby canceled) (b) 
Pepe Directive 7700. 15, ''Reporting 
Procedures on De#en#e Related 
Employment,'' October 30, 1970 (hereby 
canceled) 

(c) Public T#w 95-521, "Ethics in Government 
AC pee eo) oS ee OCE ODER —e2G, 1978, as 
amended 


(d) Title 5, Code of Federal Regulations, 
Parts. 734 and 735, Office of Personnel 
Management Regulations 


(e)through (jj) , see enclosure 1 
A. *>UANCE AND U##0OSE 
ee This Directive reissues reference (a) after 
reference (a) was consolidated with reference (b), and 


implements references (c) through (f). 

D This Directive prescribes standards of conduct 
required of all DoD personnel, regardless of assignment. It 
establishes criteria and procedures for reports required of 
certain former and retired military officers and former DoD 
Civilian officers and employees who are presently employed 
by defense contractors, 

and former officers and employees Gr defense 
contractors present- 
ly employed by the Department of Defense. 


Figure 4. Scan Document #2 


Discussions so far have centered around a 
DCASR/DCASMA environment because of the author's background. 
The concepts however should be adaptable to Plant 
Representative Offices and major buying commands as well. 
The use of commercial telecommunications is not essential at 
all, but is currently available. The Defense Data Network 
(DDN) has a mature and sophisticated electronic mail 


handling capability, and would be well suited to this 
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application. Indeed it will probably be required for any 
long range telecommunications within a few years (DLA is 
currently operating on a waiver from DCA and leases 
commercial trunk lines to form the DLA net). Facsimile 
transmission is currently in vogue for many businesses and 
is used extensively by the government. In point of ~faee 
however, data can be sent with greater accuracy and at much 


higher speeds (less cost) with DDN or DDN like systems. 
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IV. THE "STANDARD PROGRAM" SOLUTION 


To serve as a "proof of concept," the program listed in 
Appendix A waS written using dBASE III Plus (tm), a 
relational database programming language. This language 


lends itself to the structured programming techniques that 
were used in the development of "SP-1443" (the SP stands for 
Standard Program), an automated progress payment request 
generator and contract manager. The program embodies most 
of the features discussed in the text of this thesis, and is 
functional to the extent that it will prepare a SF-1443. 
The program has completed "alpha" testing on simulated data 
only. The author recommends that it not be placed in 
general distribution until extensive "beta" testing and 


additional error trapping have been accomplished. 


A. SP-1443 PROGRAM FUNCTIONS AND LIMITATIONS 

For the purpose of program development and logical 
organization, SP-1443 exists in several distinct programs. 
When the main menu program 1S executed within dBASE III 
Plus, the other "programs" are "called" as needed. In 
practical application, each of these programs would be 
converted to Procedures to reduce disk access and then 
compiled to eliminate the need to have the dBASE program 


mestTaent . 
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While this program was in the early design phase, it 
became evident that in order to maintain a high level of 
data integrity while accommodating the wide range of 
possible contract activity, it would be necessary to do more 
than just generate an automated form. It was decided to 
expand the scope of the program to accomplish these 
objectives. In so doing, the resulting product more closely 
resembled a contract management system than a simple forms 
generator. While the contractor's books and records will 
still serve as the source documents for the "cost" side of 
the accounting formula, the "reimbursement" and "changes" 
aspects of the contract can be traced to actual invoices, 
payments and contract modifications. The capacity of dBASE 
III Plus to deal with dates as a data field, make it quite 
easy to extract a chronological history of the contract at 
any point in its life. 

As the project evolved, it was decided to make the 
"Contract Reconciliation" one of the menu options available 
to the user. This function will gather information that was 
created over a period of time into a simple, concise report 
that documents the financial progress of the contract. This 
1s another example of expanding competence. A limitation 
(in a manual system, contract data is usually maintained in 
several different files, journals, etc.) 1s acknowledged and 
"ynushed" by the use of an automated tool that has the 


ability to look at the same data needed to process progress 


aie 


payments from a different, but also valuable perspective of 


financial summary. 


B. THE RELATIONAL DATABASE 

Much has been written on the subject of normalizing data 
for optimum manipulation. It is not the author's intention 
to cover that same territory, however, some discussion of 
the methodology used is in order. 

Farly database systems used the "flat file" approach in 
which every conceivable data element would exist in each and 
every record. Some types of data could be more or less 
efficiently handled in this manner. If there 1s a one to 
one relationship, l1.e., a contract has one and only one 
contract number, one and only one contract date etc., a flat 
mere works well, and™there is little waste in the form of 
duplicated fields. If we compound the problem a little and 
introduce one to many, or many to many relationships, a flat 
file can be terribly cumbersome and wasteful. For example, 
a contract may have many deliverable line items or Contract 
Line Item Numbers (CLINs). TO -aceuracely account for this 
fact in a flat file, the one to one data (contract number, 
date, paying office, etc.) would have to be repeated for 
each different CLIN. 

In a relational system, we create a new file that would 
have the CLIN information and just enough else to uniquely 
t@entify it to its parent contract. In this example, we 


would use the contract number only and ignore the contract 
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date, paying office, etc. This process forces the designer 
to more carefully analyze the needs of the system before 


trying to program it, but the extra effort results in a more 





powerful and flexible system. As mentioned in Chapter I of 
this thesis, the SF-1443 Contains "32 numeric fields Wena 
must be filled out by the contractor. Figure 5 is a screen 
print of the SP~-1443 progress payment request screen. Note 


that only the essential data for the most current period is 


requested. 


$P-1443 Progress Payment Request 


Enter Cut Off Date: 

Paid Costs eligible this period: 
Incurred Costs eiilgible this period: 
Total Costs incurred this period: 

Is All Data Correct?: 
Computed Estimate to Complete = 
Enter Best Estimate if different: 
Has lst Article heen accepted? 

Cost of Invoiced items this period: 
Subcont, payments paid this period: 
Subcont, liquidations this period: 
Subcont. payments aa not paid: 
1 Data Correct?; 





Contract No. N@@@GG-87-C-@GGL Today’s Date 83/24/88 
Progress Pymt. No 1 Data is on Drive A:\ 





Figure 5. SP-l4425@onermace area 


C. STANDARDIZATION 


In a 1982 Board of Directors meeting at the Frito-Lay 
Corporation, Mr. Charles S. Feld; Director of Managememe 
Services, presented this single slide. It summarized his 


philosophy concerning the anticipated growth in information 
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technology following the company's purchase of its first 
personal computers. (Ref. 4] 

Integration is the key to Economics 

Control is the key to Integration 

Leadership is the key to Control 

Vision and Execution are the Keys to Leadership 

ifm 6<COntrol 
These concepts manifest the central theme of this 
section and the thesis. By offering a timely and effective 
software equivalent of a Standard Form, the Government can 
insure standardization through leadership. Control is the 
operative word. Without it, the Government may find itself 
at some point in time trying to conform to some commercial 
standard or (worse yet) several standards for automated data 
Solbection and reporting. 
2. Consistency 
This attribute of standardization takes advantage of 

the learning curve for the Government as well as 
Sentractors. An added advantage of using this type of 
software is that non-user related types of administrative 
Changes (formulas, cut offs, etc.) can be made to the 
software without effecting the user. This has the effect of 
maintaining even greater consistency, and leads to even more 


emrective use of Users' time. 
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3. Ktticrenem 

It was the author's experience in writing SP-1443 
that many of the mundane and detail tasks of mathematics and 
record keeping could be easily relegated to software. This 
frees the user to concentrate on the content of the reports 
and to develope the human qualities of judgment and 
reasonableness. A more competent user is less likely to let 
a non-math related error get by. In short, using a well 
designed software aid in contract management more closely 


matches the attributes and requirements of the task at hand. 


D. THOUGHTS ON IMPLEMENTATION 

While the author does not hold out SP-1443 as an error 
free and ready to distribute piece of software, its 
existence does illustrate the point that such products are 
indeed possible, and that existing programming languages and 
personal computers are capable of doing the job quite 
nicely. To this end, the author recommends the following; 


1. Use SP-1443 as a starting point for follow on thesis 
work, 


2. Locate Government contractors and administrative/ 
paying offices that would be willing to "beta" test 
the ._pEcaves, 


3. Distribute the debugged and tested software free of 
charge to contractors on a voluntary basis, 


4. Investigate the possibility of integrating more 
contract management functions into the package such as 
shipping and receiving reports, invoices, delivery 
reports, project estimation models, DD-250's etc.. 
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E. THE FUTURE OF "STANDARD PROGRAMS" 

For over a century, the Federal government has been 
researching, designing, testing, printing and distributing 
forms. The last decade has seen a revolution in the office 
automation area with the introduction of the personal 
computer. The potential of these machines is scarcely being 
tapped in the high dollar world of government contract 
management due largely to the lack of appropriate software. 
By producing Standard Programs with the same zeal applied to 
Standard Forms, the author believes that substantial 
resources can be saved in both the short and long term. [In 
the current era of austere funding, it is an alterative the 


Government can ill afford to ignore. 
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V. SUMMARY 


Not every agency has the same problems with forms in 
general or progress payments in particular. Using a 
microcomputer with an electronic spreadsheet to verify 
accuracy may be all the automation a company with a resident 
PRO needs. The sudden recent achievements in computers and 
data communication have prompted many ADP gurus to "fix" 
problems that may not warrant f1xing. A sense of 
perspective is certainly an essential tool in any attempt to 
Change or automate any contract management system. 

If automation is selected, there are a number of things 
for the manager to consider. Standardization is perhaps one 
of the most important. One of the initial goals of DLA was 
to present "one face to industry." Automation in the 
Acquisition and Contracting field is an ideal place to put 
that Goncept “intempraccice: Standardization means that 
government employees should not have to learn multiple 
computer systems just to perform their jobs. It means that 
companies should not have to change the way they submit 
progress payment requests depending on the buying activity. 
It also means that as changes come along, there is just one 
system to maintain. 

To this end, perhaps the government should consider 


developing and distributing software as well as forms. If 
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the government provided progress payment software to the 
contractors who wanted it, standards and compatibility would 
be assured, and more uniform results could be obtained. The 
cost of developing or procuring this software would soon be 
offset by administrative time savings. If the progress 
payment system works, then expand to include DD 250 receipt 
inspection automation, or any one of a dozen currently 
Manual contract management systems in a similar manner. If 
the government fails to take the initiative in this area, an 
contractor or consultant will emerge that will do the 
Innovation (at the possible expense of the taxpayer). In 
that event the government may not be able to set and 
maintain standards to the extent they would like. 

In the long view, automation of such repetitive (and 
dull) tasks like progress payment request preparation, 
review, validation and payment will be inevitable. As more 
and more government and industry contract administrators 
become computer literate, the demand for such automation 
med 6~bulld. The only real questions are who will be the 
innovator and when will it happen. Government has already 
asserted its considerable influence as a consumer in the 
marketplace to develope and implement a "standard" 
programming language, Ada. It is the author's opinion that 
the same people who brought us the Standard Form (the 
Federal Government), should bring us the Standard Program, 


Piicmeitake wle available at little or no cost to contractors 
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and government agencies alike. The simple fact is that 
mistakes in form preparation are costly to the government as 
well as contractors. Any method that will reduce these 
errors, either systemically or procedurally, should be 


looked on with great interest by all concerned. 
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APPENDIX A 


SP=1443 SOURCE CODE LISTING 


main.prg 
Author: Walt Harsch 
Purpose: Main Program, sets up menu functions 
Calls: base.prg 
oss) 
ppr.prg 
isp. pr 
mods.prg 
BOC OM. DEG 
tela. fos 
eee sos 


Called by: None 
Input/Output Files: None 


+e + ee HH HF HF HF HF HF OH FH OF 


clear 

set talk off 

set bell off 

store "none selected" to sysk 
store "***" to sysr 

store date() to sysdate 

use conf 

store drive to syspath 

do base 

do while .t. 


eeore " " to choice 

@ 3,31 say [SP-1443 Main Menu] 

@ 5,20 say [Code: PUnct lem 

@7,22 say [1 Input/Edit/Terminate a Contract] 
mmc, 22 say [2 Generate a Progress Payment] 
@9,22 say [3 Process Invoices/Shipments/Payments ] 
@ 10,22 say [4 Process Contract Modifications] 
Meet, 22 say [5 Generate Contract Reconciliation] 
@ 12,22 say [6 input, bare Contractor Daca 

@ 13,22 say [7 Set Program Defaults] 

@ 14,22 say [9 Eee ange serurn to. DOS | 

@ 


16,22 say [Enter your selection: ] get choice 


clear gets 


do case 
case choice = '1! 
lOmin pr 
case choice = '2! 


41 


G6 PPE. wae 


case choice = '3' 
do isp.prg 
case choice = '4'! 
do mod.prg 
case choice = '5'! 
do recon? pre 
case choice = '6' 
do. KEE pig 
case choice = '7' 
dO ie pase 
case choice = '9' 

clear 


release all 
close databases 
exit 
endcase 
do base 
enddo 


eof main.prg*Z* base.prg 

Author: Walt Harsch 

Purpose: To create the basic Input/Output screen for the 
SP-1443 Program. 

Calls: Nothing 

Is Called by: Main.prg, and all functional modules 
Input/Output files: None 


i i i i i ee ee ee 


clear 
set status off 


1,0 tO 23,79 doeupile 
18,1 to 178, 76 deubite 
20,5 say [Contrace iors 
20,40 say [Today's Date] 
21,5 say [Progress Pymt. No ]} 
21,40 say [Data is on Drive } 
set color to W+ 
if sysk="no" 
@ 20,18 say sysk 
else 
@ 20,18 say sysk picture "GRU!!! !letteleliyy atts 
endif 
@ 20,53 say sysdate 
@ 21,23 say sysr 
@ 21,57 say syspath 
set color to W 


DDDOA OD DM 
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return 


—eeor Dase.prg“Z* k.prg 

* Author: Walt Harsch 

* Purpose: To Input/Edit/Terminate a contract 
* Calls: 

* Is called by: Main.prg 

* Input/Output Files: 

* Ke. ot 

* ie Ne. aot 

* ACO.abE 

* PO.dbf 

* 

* 

% 

clear 

store space (17) to contract 
mtotal = 0 

store .f. to mkans 

Beere " " to choice 

do base 


@ 3,29 say [SP-1443 Contract Data] 
Buoy le Say { Enter Contract Number: ] get contract picture "@R 
Perret entire toatbibrt’ Pbrrn 
ead 
memecontract =" " 
close databases 


release all like m* 


mecurn 

endif 
@ 11,20 say [1 Add a New Contract] 
@ 12,20 say [2 Edit a Contract] 
@ 13,20 say [3 Delete a Closed Contract] 
@ 14,20 say [9 Return to Main Menu] 
@ 16,20 say {Enter your selection: } get choice 
read 
clear gets 
do case 


KRRRKRKKRKRKRRRKRKRKRKRRRRKRRREEE 


* ADD NEW K * 
KHKKKKKKKKKKKKKKKKKKEKKEEK 


case choice = '1' 

KEKE 
select 1 
use ka index Ka 
restore from ka additive 
seek contract 
if found() 

do base 

@ 8,12 say [This contract already exists ... Press any key 
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tO Comeiuiey 
minkey = 0 
do while minkey = 0 

minkey = inkey() 

enddo 
release all like m* 
close databases 
return 

endif 

sysk = contract 

do base 

store .t. to mansa 

store .f. to mansb 

store .f. to kkfms 

do while .not. mansb 

@ 3,30 say [SP-1443 Contract Data] 


@ 7,12 say [ Date of Contract: ] get mkdate 
@ 8,12 say [ FMS ?: ] get kkfims pictures 
@ 9,12 say [ Subcontracts ?: ] get mksubk picture "y" 
read 


@ 10,12 say [ Is All Data Correct?: ] get mansb picture 'Y' 


read 

clear gets 
enddo 
append blank 
replace knum with contract 
replace kdate with mkdate 
replace ksubk with mksubk 
replace kfms with kkfms 
replace kflag with mkflag 
release all like M* 
RREEKKRKKRKRKRRKRRKRRKRKRKRRRKRRREK 
select 2 
use kb index kb 
restore from kb additive 
store .t. to mansa 
store .f. to mansb 
do while mansa 

do while .not. mansb 

@ 12,12 say [ First Article $ limit: ] get mklart )pieeene 
'99,999,999' 

@ 13,12 say [ Progress Payment Rate: ] get mkppr picture 
1099.9. 


@ 14,12 say [ Liquidation Rate: ] get mkpplr picture 
"O99. oO! 
if kkfms 
@ 15,12 say [ Enter Country Code: }] get mkcntry 
picture 023 
endif 
read 


@ 16,12 say [{ Is All Data Correct?: ] get mansb picture "y" 
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read 
clear gets 
enddo 

if kkfms 
store .f. to mansb 
store .f. to mansa 
@ 18,12 say [ More Country Code(s)?: ]) get mansa 

peerure 'y' 


read 

clear gets 
else 

store .f£. to mansa 
endif 


store .t. to mkflag 
append blank 
replace knum with contract 
replace klart with mklart 
replace kppr with mkppr 
replace kpplr with mkpplr 
replace kpriceil with mkpricei 
replace kpricec with mkpricei 
replace kentry with mkcntry 
replace kflag with mkflag 

enddo 

release all like m* 

KK IO IO IO IO Ok kk tok 

select 3 

use aco 

restore from aco additive 

Seere .£. to mkans 

do base 

@ 3,30 say [SP-1443 ACO Data] 

do while .not. mkans 


@ woes Say [ Admin. Contracting Office: ] get maconame 
picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXxX'! 

@ 8,12 say [ ACO Name & Title: ] get macotitl 
picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXxX'! 

@ mye Say ACO Address: ]}) get macoaddr 
picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXxX'! 

@ 10,12 say [ ACO City: ]) get macocty 
picture 'XXXXXXXXXXXXXXXXXXXxX'! 

Geil,1i2 say [ ACO State: j]} get macost 
peeture ‘'!!' 

Wee, 12 say [ ACO Zip: ) get macozip 


picture '@R NNNNN-NNNN'! 
Wms i2 Say [| Contracting Office I.D. Code: ] get macocd 
picture 'NNNNNN'! 


@ 14,12 say [ Contracting Office Telex #: ] get macotelex 
picture 'NNNNNNNNNNNN'! 

read 

@ 16,12 say [ Is All Data Correct?: ] get mkans picture 
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ty! 
read 
clear gets 
enddo 
append blank 
replace acoknum with contract 
replace aconame with maconame 
replace acotitl with macotitl 
replace acoaddr with macoaddr 
replace acocty with macocty 
replace acost with macost 
replace acozip with macozip 
replace acocd with macocd 
replace acotelex with macotelex 
release all like m* 
kAEKKKKKKK KKK KKK KKK KKK 
select 4 
use po 
restore from po additive 
store .f. to mkans 
do base 
@ 3,30 say [SP-1443 Pay Office Data] 
do while .not. mkans 
@ 7,12 say [ Paying Office Name: J] get mpoadril picture 
"XXXXXXXXXXXXXXXKXXKXXKXXXXXXKXXKXX'! 
@ 8,12 say [Paying Office Address: ] get mpoadr2 picture 
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'! 
@ 9,12 say [ Paying Office City: ] get mpocty picture 
"XXXXXXXXXXXXXXXXXXXX! 
@ 10,12 say [ Paying Office State: ] get mpost picture '!!' 


@ 11,12 say [ Paying Office Zip: ] get mpozip picture '@R 
NNNNN-NNNN'! 

@ 12,12 say [ Paying Office Code: ] get mpocd picture 
"NNNNNN' 


@ 13,12 say [Paying Office Telex #: ] get mpotelex picture 
"NNNNNNNNNNNNN'! 
read 
@ 15,12 say [ Is All Data Correct?: j} get mkans picture 'Y' 
read 
clear gets 
enddo 
append blank 
replace poknum with contract 
replace poadri with mpoadri 
replace poadr2 with mpoadr2 
replace pocty with mpocty 
replace post with mpost 
replace pozip with mpozip 
replace pocd with mpocd 
replace potelex with mpotelex 


release all like mx 
Sete tote te te tke tek cede ke tek e eae KKK K 
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select 5 
use clin index clin 
store .t. to mkansa 
mgtotal = 0 
do while mkansa 
do base 
@ 3,30 say (SP-1443 CLIN Data] 
restore from clin additive 
store .f. to mkansb 
do while .not. mkansb 


@ 7,12, °Say a CEIN yy.) get mclin 
mmoture '!!!}issi' 
seek contract+mclin 
lc Oouic ¢) 
@ 9,12 say [You have entered a duplicate CLIN -] 
@ 10,12 say (Press any key to continue... ] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
loop 
endif 
mtotal = 0 
@ 8,12 say [ Quantity: ] get mcqtyi 
picture '9999999' 
@ 9,12 say [ Unit of Issue: ] get mcui picture '!!' 
@ 10,12 say [ Unit Price: ] get mcpricei picture 
ba 9999.99! 
@ 11,12 say [ Delivery Date: ] get mcduei 
if kkfms 
@ 12,12 say [ Countay code: || get mecntry picture 
fy t 
endif 
read 
@ 14,12 say [ Is All Data Correct?: ]} get mkansb picture 
ty! 
read 
clear gets 
enddo 


append blank 

replace cknum with contract 

replace clin with mclin 

replace cqtyi with mcqtyi 
replace cqtyc with mcqtyi 

replace cui with mcul 

replace cpricei with mcpricel 
replace cpricec with mcpricel 

replace cduei with mcduel 
replace cduec with mcduel 

replace centry with mccntry 
replace cqtysh with 0 
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replace cqtyin with 0 
store .f. to mkansa 
@ 16,12 say [Are There More CLIN's?: ] get mkansa picture 'yY' 
read 
clear gets 
mtotal = mtotal + (mcqtyi*mcpricei) 
mgtotal = mgtotalw meceal 
RREERKARRRKRKRRRKRKRRRRRRRKRREE 
select 2 
seek contract+mccntry 
replace kpricei with kpricei+mtotal 
replace kpricec with kpricec+mtotal 
KRHEAEKRKKKRRKRKRKRKRKRRKRKRRKRKRKRRRREK 
select 1 
seek contract 
replace kgtotal with mgtotal 
KREEKKKRKKRKKKRKRKKKKRKKKKKKRER 
select 5 
enddo 
use 
do base 
@ 10,12 say [Total price for thie coneract ets ay 
@ 10,48 say mgtotal picture '99,999,999.99' 
@ 12,12 say [Press any key to continue ...] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
release all like m* 


RERKRKRKRKKRKRKKRRKRRKRKRKRKRKRRRRKK 


* Boer * 
RRRKRKRKRKKRKKRRKRKKRKRKKKRKRKRKRKEE 
case choice = '2'! 


kkkekkRRKRKRRKRKRRRRKRRKRKRKRRKRRE 


select 1 
use ka index ka 
seek contract 
if eof () 
do base 
@ 7,12 say [Contract not found ... Press any key to 
continue] 
minkey = 0 
do whole minkey =0 
minkey = inkey() 
enddo 
loop 
endif 
store kfms to kkfms 
store "US" Eo mkenery 
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if kkfms 
MC emo eoncer Country Code: | get mkcntry picture "!!" 
read 
endif 
store kflag to mkflag 
store kdate to mkdate 
store ksubk to mksubk 
Pemanot. mkflag 
do base 
@ 7,12 say [This contract has already been edited once. ] 
@ 8,12 say [Use the Contract Modification option from the 
Main Menu} 
@ 9,12 say [ ... Press any key to continue] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
loop 
endif 


sysk = contract 
do base 
store .t. to mansa 
store .f. to mansb 
kkfms = mkfms 
Gomwnile .not. mansb 
@ 3,30 say [SP-1443 Contract Data] 


Wey ,il2 say [ Date of Contract: ] get mkdate 
@ 8,12 say [ FMS ?: ] get kkfms picture "y" 
@ 9,12 say [ Subcontracts ?: ] get mksubk picture "yY" 
read 


@ 10,12 say { Is All Data Correct?: } get mansb picture 'Y' 


read 

clear gets 
enddo 
replace knum with contract 
replace kdate with mkdate 
replace ksubk with mksubk 
replace kfms with kkfms 
replace kflag with .f. 
release all like M* 
KRREEKRKEERKKKKKKKKRKKKKKKREKRE 
select 2 
use kb index kb 
restore from kb additive 
epore Kilart to mklart 
store kcntry to mkcntry 
store kppr to mkppr 
store kpplr to mkpplr 
store kpricei to mkpricei 
store .f. to mansa 
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do while mansa 


do while .not. mansb 
@ 12,12 say [{ First Article S$ limit?” ] gee mklaee (pteenee 
UOOG So Foe 
@ 13,12 say [ Progress Payment Rate: ] get mkppr picture 
no99%. 9. 
@ 14,12 say Wi Liquidation Rate: ] get mkpplr picture 
"o9o9.9" 
if kkfms 
@ 15,12 say [ Enter Country Code: |] gee mkemenw, 
Pictures. 
endif 
read 
@ 16,12 say [ Is All Data Correct?: ] get mansb picture "y" 
read 
clear gets 
enddo 
if kkfms 
store .f. to mansb 
store .f. to mansa 
@ 18,12 say [ More Country Code(s)?: ]) get mansa 
picture ya 
read 
Clear gets 
else 
store .f. to mansa 
store .f. to mkflag 
replace knum with contract 
replace klart with mklart 
replace kppr with mkppr 
replace kpplr with mkpplr 
replace kpricei with mkpricei 
replace kpricec with mkpricel 
replace kcntry with mkcntry 
replace kflag with mkflag 
enddo 


release all like m* 
kkkkekekekekekek eee KKK KKK 


selec 


use aco index 


store 
store 
store 
store 
store 
store 
store 
store 
store 


Les 


aconame 
acotitl 
acoaddr 
AGeCEy 

acost t 
acozip 

acocd & 
acotele 


aco 
to maconame 
to macoetel 
to macoaddr 
CoO Macocey 
Oo macost 
to macozip 
Oo macocd 
x to macotelex 


-f£. to mkans 
do base 
@ 3,30 say [SP-1443 ACO Data] 


ae 


moewhile .not. mkans 


@ 7,12 say [ Admin. Contracting Office: ] get maconame 

Duomare 'XXXXXXxXXXMMKXXXXXXXXXXXXXXXXXX'! 

@ 8,12 say [ ACO Name & Title: ] get macotitl 
picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXkKX'! 

@ 9,12 say [ ACO Address: J] get macoaddr 
picture 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'! 

@ 10,12 say [ RECO Gis eeeele Ceitamacocty 
Peeture "XXXXXXXXXXXXXXXXXXxXxX'! 

@€ 11,12 say ([ ACO State: ] get macost 
pieeure '!!! 

@ 12,12 say [ ACO Zip: ] get macozip 
picture '@R NNNNN-NNNN' 

@ 13,12 say [ Contracting Office I.D. Code: ] get macocd 
picture 'NNNNNN'! 

@ 14,12 say [ Contracting Office Telex #4: ] get macotelex 
picture 'NNNNNNNNNNNN' 

read 

@ 16,12 say [ Is All Data Correct?: ] get mkans picture 
ty! 

read 

clear gets 
enddo 


replace acoknum with contract 
replace aconame with maconame 
replace acotitl with macotitl 
replace acoaddr with macoaddr 
replace acocty with macocty 
replace acost with macost 
replace acozip with macozip 
replace acocd with macocd 
replace acotelex with macotelex 
release all like m* 
RREEEKERRKEKRKEKRRRRRKRRRRREEE 
select 5 
use po index po 
seek contract 
store poadrl to mpoadrl 
store poadr2 to mpoadr2 
store pocty to mpocty 
store post to mpost 
store pozip to mpozip 
store pocd to mpocd 
store potelex to mpotelex 
store .f. to mkans 
do base 
@ 3,30 say [SP-1443 Pay Office Data] 
do while .not. mkans 

@ 7,12 say [ Paying Office Name: ] get mpoadrl picture 
"XXXXXXXXXXXXKXKXXXXKXKXXXXXXXKKKX ! 

¢ 8,12 say [Paying Office Address: ] get mpoadr2 picture 
"XXXXXXXXXXXXXXXXXKXXXXKXXXXKXKXKXX! 
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@ 9,12 say Paying Office City: j get mpocty picture 
XXXXXXXXXXXXXXXXXKXX ! 
@ 10,12 say [ Paying Office State: ] get mpost picture '!'!!'! 
@ 11,12 say [ Paying Office Zip: ] get mpozip picture '@R 
99999-9999 ' 
@ 12,12 say [ Paying Office Code: ]j get mpocd picture 
'NNNNNN'! 
@ 13,12 say [Paying Office Telex #: ] get mpotelex picture 
'"NNNNNNNNNNNNN'! 
read 
@ 15,12 say [ Is All Data Correct?: ] get mkans picture 'Y' 
read 
clear gets 
enddo 
replace poknum with contract 
replace poadrl with mpoadrl 
replace poadr2 with mpoadr2 
replace pocty with mpocty 
replace post with mpost 
replace pozip with mpozip 
replace pocd with mpocd 
replace potelex with mpotelex 
release all like m* 
KKK KKKKRKKKRKRKRKRKKRKEKKKRKK 
select 5 
use clin 
store .t. to mkansa 


store space(7) to mclin 
locate for ckKnum=contract 
do while mkKansa 

do base 


@ 3,30 say [SP-1443 CLIN Data] 
Store .f. to mKansb 
Go while .not. mkansb 


if .not ss founcw) 

@ 9,12 say [No CLINs found -] 

@ 10,12 say [Press any key to continue... ] 

minkey = 0 

do while minkey = 0 

minkey = inkey() 

enddo 

do base 

return 
endif 
store 
store 
store 
store 


Ciaineeeor me lien 

eQey i, CO megeya 
Gprieci fo Menace 
cduei to mcdueil 
SCOre CCNE EEO NCChEr, 
store cui to mcui 

mtotal = mcgqtyi * mcpricei 
REKKKKKKKKKKKKKRKRKKKRKRKKKRKEE 


Si 


a a 


select 2 

seek contract+mccntry 

replace kpricei with kpricei-mtotal 
replace kpricec with kpricei-mtotal 


release all like m* 
keke mK KKK KKK KKK KKK KKK 


select 5 
@ 7,12 say [ Chie gee. mclin 
emerure 'illiii!t 
@ 8,12 say [ Quantity: ] get mcgtyl 
picture '9999999! 
@ 9,12 say [ Unit of Issue: } get mcui picture '!!' 
@ 10,12 say [ Unit Price: ] get mcpriceli picture 
peo, 99" 
@ 11,12 say [ Delivery Date: ] get mcduei 
if kkfms 
@ 12,12 say [ Country Code: }] get mccntry picture 
rey t 
endif 
read 
@ 14,12 say [ Is All Data Correct?: ]} get mkansb picture 
ry! 
read 
enddo 


replace cknum with contract 
replace clin with mclin 
replace cqtyi with mcqtyl 
replace cqtyc with mcqgtyil 
replace cul with mcui 
replace cpricel with mcpriceli 
replace cpricec with mcpricei 
replace cduei with mcduei 
replace cduec with mcduel 
replace ccntry with mccntry 
replace cqtysh with 0 
replace cqtyin with 0 
mtotal = mcqtyi * mcpricei 
Mmejeoeat — mototcal + mtotal 
KHEEKEKEKEKKKEKKEKEKKEKKEKEKKEEKEKRSE 
select 2 
seek contract+mccntry 
replace kpricei with kpricei+mtotal 
replace kpricec with kpricei+mtotal 
KREKEKKKKEKEKEKEKKEKEKEKEKEKKEKRKKEEEESE 
continue 
af erOuUric ( ) 
@ 16,12 say [Press any key for next CLIN] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
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else 
store .f. to mkKansa 

endif 

clear gets 
enddo 
kK KKK KKK ERK KKK KK RKKKKKE 
select 1 
seek contract 
replace kgtotal with mgtotal 
kK KK KRKKKKRKKKK KKK KKK KKK 
use 
do base 
@ 10,12 say [Total price for Enis contteace 5s. — 
@ 10,48 say mgtotal picture '99,999,999.99' 
@ 12,12 say [Press any key to continue ...] 
minkey = 0 
do while minkey = 0 

minkey = inkey() 
enddo 
release all like m* 


KRREKEKEKKKREKRRRKKREKRRRKKKRRRER 


* DELETE * 
kkk KKK RK KKK KKK KKK KKK KKK 
case choice —=)'3* 


KRAERKKRKKRKRKRRKRKRKRKKRKKKRKRKRREEE 


store .f. to mansb 
@ 16,20 say {Are You Shure you wish to delete this Contract?: ] 
get mansb picture 'Y' 
read 
1f .not. mansb 
loop 
endif 
use ka index ka 
delete while knum=contract 
pack 
use kb index kb 
delete while knum=contract 
pack 
use inv index inv 
delete while iknum=contract 
pack 
use mod index mod 
delete while moknum=contract 
pack 
use ppr index ppr 
delete while pknum=contract 
pack 
use po index po 
delete while poknum=contract 
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pack 
mee clin index clin 
delete while cknum=contract 
pack 
use ship index ship 
delete while sknum=contract 
pack 
use aco index aco 
delete while acoknum=contract 
pack 
use pay index pay 
delete while pykKnum=contract 
pack 
use modr index modr 
delete while moknum=contract 
pack 
use invr index invr 
delete while iknum=contract 
mack 
use shipr index shipr 
delete while sknum=contract 
pack 
release all like m* 
otherwise 

close database 

clear 

sysk= {none selected] 

return 
endcase 
close database 
clear 
sysk = [none selected] 
return 
AZ, 
Pent .prg 


* Author: Walt Harsch 

* Purpose: To set program default drive and to create the "mem" 
* files if not already done. 

mecalls: 

* Is called by: Main.Prg 

® 

* 

* 

clear 

do base 

store " " to choice 

* 

@ 3,31 say [SP-1443 Program Setup] 

fees, 15 say (1. Set Up Data File Default Drive] 
omeo, 15 say [2. Select Printer] 

emo, 15 say [9. Return to Main Menu] 

@ 12,20 say [Enter Your Selection: ] get choice 


5 


read 
clear gets 


do case 
case choice = 
clear 
do base 
use conf 


ie 


Store driver coungder yc 


Ques: 


read 
clear gets 


say [SP-1443 Program Setup] 
@ 11,22 say [Drive & Path : 


set default to &mdrive 


syspath = 


mdrive 


append blank 
replace drive with mdrive 


release mdrive 

case choice = 
do base 
mprint = 0 
@ 3,31 say 
Gey 20 say 
@ 8,20 say 
@ 9,20 say 


@ 11,20 say [Select one: 


read 
clear gets 
do case 


ED 


[SP-1443 Printer Select] 
(1. Epson] 

[2 ~ Mi=1T6O) 

[3. H.P. LaserJet] 


case mprint = 1 


store "epson" to mcode 


case mprint = 2 


store 


mt1iso" to mcode 


case mprint = 3 


endcase 
Tf @onove 


store 
number 
store 
date 
store .f. to 
flag 
store 
Sales flag 
store 
file lock flag 
store 


Marae 


store 


"laser" to mcode 


file(ka.mem) 
use Ka 


space(17) to mknum 
ctod("00/00/00") Ge mkeaee 
mksubk 

Voc om ink Lins 

ak. CO: Ankenes 


O to mkgtotal 


Grand: total eGigecontrace: 
Save all like m* to ka 
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|] get mprine preemme 


& & 


& & 


& & 


}] get mdrive picture 


'9! 


COn@Mace 
COn@Eaes 
subcontract 
&& Foreign 
& & 


&& initial 


release all like m* 


endif 
if .not. file(kb.mem) 
use kb 
store space(17) to mknum && 
store 0 to mklart & & 
eae. C 
Store "US" Commkentry && 
store O to mkppr 
payment rate 
store 0 to mkppiir & & 
liquidation rate 
store O to mkduek & & 
store 0 to mkdisc & & 
taken 
store 0 to mkpricei 
Semcract price 
store 0 to mkpricec 
price 
store 0 to mkpectd & & 
cost to date 
store 0 to mkiectd & & 
cost to date 
store 0 to mktcitd & & 
to date 
store 0 to mkskptd & & 
to date 
store 0 to mkskltd & & 
liquidated to date 
store 0 to mkskwait 
awaiting payment 
Store O te mkdecra && 
date 
store 0 to mkinvtd & & 
amount to date 
store 0 to mkpptd && 
payment to date 
store 0 to mkinvpd & & 
paid 
store 0 to mktciv & & 
invoiced 
Store .£.. lO mkipdag 
Pag 
save all like m* to kb 
release all like m* 
endif 
if .not. file(ship.mem) 
use ship 
store space(7) to mshipno 
store ctod("00/00/00") to mshipdt 


store space(17) to mknum 


iy 


GOmeracke Number 
ict eaGiicile S 


Country code 
& & Bregress 


bee C . pay. 
S=due on Contract 
total doscounts 
& & ed te a 

& & Gee ee ivic 
paid eligible 
incurred eligible 
tOt COs:  lLincuUmirced 
sub contract paid 
sub @Oldie ina Cie 
& & sub K 
delivered cost to 
total invoiced 
total progress 
total invoices 
ie ore a) Gost 


& & fecal lock 


endif 
lf «nee 
endif 
if 4n©Oce 
Tose 
number 
endif 
ik peo. 
enavt 
Te. nots 


save all like m* to ship 
release all like m* 


file(inv.mem) 


use inv 

store space(7) to minvono 

store ctod("00/00/00") to minvodt 
store 0 to minvamt 

store space(17) to mknum 

save all like m* to inv.mem 
release all like m* 


file(clin.mem) 


use clin 

store space(7) to mclin 

store 0 to mcqtyl 

store 0 to mceqtyc 

store 0 to mcpricei 

store 0 to mcpricec 

store ctod("00/00700") Meo meduem 
store ctod("00/00/00") to mcduec 
store [Us] Commcentry 


store 0 to mcqtysh 
store 0 to mcqtyin 


store [EA] to mcui 
store space(17) to mknum 
store space(25) to mdesc 


save ali) like meeco 21 1k 
release all like m* 


file (mod.mem) 


use mod 

store space(6) to mmodno 

store ctod("00/00/00") to mmoddt 
store 0 to modamt 

store space(17) to mmoknum 

store .f. to mmoadmin 

store .£. to mmetlag 

save all like m* to mod 

release all like m* 


file(modr.mem) 


use modr 

store space(17) to mmoknum 
store space(6) to mmodno 
store space(7) to mmoclin 
store O to mmoqtyf 

store 0 to mmoqtyt 
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&& country code 


&& qty shipped 
&& qty invoived 


& & U nee ort 
& & COntGtace 


&& description 


store 0 to mmoprf 
store 0 to mmoprt 
Store cred "00/00/706") to 
Score eccrod("00/700700") “te 


mmoduef 
mmoduet 


store 


.f. to mmoadmin 


store .f. to mmoflag 
save all like m* to modr 
release all like m* 

endif 

if .not. file(ppr.mem) 

use ppr 

SEOre Crod( 007 00700") to 

store 0 to mprno 

store ctod("00/00/00") to 

store tO Mprame 

store to mpdcst 

store to mpincst 

store to mpskppd 

store to mpsklpd 

store to mpskwait 

store to mpentry 

store to mptcst 

store Ele oro, 

store space(17) to mknum 

Store .f£. co mpx lag 

save all like m* to ppr.mem 

release all like m* 


mpcod 


mpprdat 


oOo 0 00000 0 


endif 
if .not. file(aco.mem) 

use aco 

store space(30) to & & 


maconame CoOoneract 


memin. Office 


store space(30) to macotitl && ACO name + 
title 
store 
store 
store 
store 


store 


Space(30) to macoaddr 
space(20) to macocty 
Sspace(2) to macost 
space(9) to macozip 
space(6) to macocd 
store space(13) to macotelex 
store space(17) to mknum 
save all like m* to aco.mem 
release all like m* 
endif 
if .not. file(po.mem) 
use po 
store 
store 


space(30) to mpoadrl 
space(30) to mpoadr2 


store 
store 
store 
store 


space(20) to mpocty 
space(2) to mpost 
space(9) to mpozip 
Sspace(6) to mpocd 


a 


store space(13) to mpotelex 
store space(17) to mknum 
save all like m* to po.mem 
release all like m* 
endif 
if .not. file(pay.mem) 
use pay 
store ctod ("007 G07 00”) 
store O to mpyamt 
store 0 to mpyckno 
store 0 to mpydisc 
store space(17) to mknum 
save all like m* to pay 
release all like m* 


to mpydate 


ena le 


if .not. file(epson.mem) 


endif 
nets 


endif 
* ets 
* 
* endif 
diets 


me loner 


snot. 


NOt. 


store 
store 
store 
store 
store 
store 
store 
store 


[f chr (15) iiiaee ine 

(chr (27 One ie co 
(chr (27 je co 
[chr(27)) rico 
[(ehr( 27). eines 
[ehr(27 ) ea seo 
[chr (13) eeeener 
[ehrt1 2) |e mien 


m8 1 
md 
ms 
alae: 
ml 


Save all like m* to epson 
release all like m* 


store 
store 
store 
store 
store 
store 
store 
store 


file(mti80.mem) 


(chia( 15) ] to ane 

Fehr (27)? 6 ieee 
(chm(27 )- "Ei iate 
Fenn C27 eal seo 
fehisi(27) + Gao 
fenr (27 )+s | “eo 
fenr (13))) toemer 
[eheGlZ in) commie 


m8 1 
mad 
ms 
mr 
mi 


save all like m* to mt180 
release all like m* 


store 


file(laser.mem) 
(laser printer control codes here) 


(chr 


file(ktr.mem) 


use ktr 
space(30) to mcname 


store 
store 
store 
store 
store 
store 
store 
store 


space(30) 
space (20) 
space(2) 
space (9) 


to -=mese 


EOunezie 


EO Meéadan 
EORMNeGG Hey. 


Space(5) to mcfscm 


-£. to mesmall 


space(13) to mctelex 
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Save all like m* to ktr 
release all like m* 


endif 
case choice = '9! 
release choice 
do base 
return 
endcase 


femease choice 
release all like M* 
release all like k* 
close databases 
clear 

do base 

return 


xeof init.prg 

ea KCr.prg 

* Author: Walt Harsch 

* Purpose: To create/edit the Contractor's attribute 
information and maintain the appropriate disk 
£1 Le. 

Calls: None 

Is called by: Main.prg 

impuc/Output files: ktr.dbf 


+ 


eee + + 


clear 
do base 


use ktr 
restore from ktr additive 
store .f. to mkans 
do while .not. mkans 
@3,29 say [SP-1443 Contractor Data] 


@7,12 say [ Contractor Name: ] get mcname 
@ 8,12 say [ Address: ] get mcaddr 
@9,12 say [ City. | -oet mecity 
@ 10,12 say [ State: | ger mese picemime '!!' 
@ 11,12 say [ Zip: 6S CEMMeZa pomp Lecture 'aR 
99999-9999 ' 
@ 12,12 say [ Small Business ?: ]) get mcsmall picture 'Y' 
@ 13,12 say [ FSCM Code: ] get mcfscm picture 'NNNNN'! 
@ 14,12 say [ TELEX, Easylink: ] get mctelex picture '@B 
9999999999999! 
read 
@ 16,12 say {Is All Data Correct?: ] get mkans picture 'Y'! 
read 


clear gets 


ot 


enddo 

append blank 

replace cname with mcname 
replace caddr with mcaddr 
replace ccity with mccity 
replace cst with mcst 
replace czip with mczip 
replace csmall with mcsmall 
replace cfscm with mcfscm 
replace ctelex with mctelex 
close databases 

release all like m* 


clear 
do base 
return 


x 20% KEr.pEG 

a's 

* ppr.prg 

* Author : Walt Harsch 

* Purpose: to collect progress payment raw input from user 


* and compute, using historical data, a new progress payment 
* request 

* 

* 

* 

* 

KHKKKKKKKKKKKKEKKKKKRRREER 

select 1 

store space(17) Ge cemeracc 

do base | 


store .t. to mans 
do while mans 

@ 3,24 say [SP-1443 Progress Payment Request] 

@ 10,9 say [Enter contract number (or CR to exit): ] get 
contract picture "@R ee eee 

read 

if COntreac.e.—— 

return 

endif 

use ka index ka 

restore from ka additive 

seek contract 


if eof() 
@ 12,12 say [Contract Not Found . . . Press any Were 
try again] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
clear 


SZ 


i 


do base 
loop 

endif 

mans = .f. 
enddo 
store kfms to kkfms 
store kdate to mkdate 
store ksubk to mksubk 
eeere "US" to mtfms && think abiout this one. 
if kkfms 

@ 12,12 say [Enter Country Code: }] get mtfms picture ‘'!!! 

read 
endif 
clear gets 
KkeRRKRKRKRKRKRKRKRKRRKRKRKRKKKRKRKRAREE 
select 2 
use kb index kb 
restore from kb additive 
clear 
seek contract+mtfms 
store klart to mklart 
meere Kentry to mentry 
store kppr to mkppr 
eeere kpplr to mkpplr 
store kduek to mkduek 
Beare Kpricei to mkpricei 
store kpricec to mkpricec 
store kpectd to mkpectd 
store kiectd to mkiectd 
e@re ktcitd to mktcitd 
store kskptd to mkskptd 
store kskltd to mkskltd 
store kskwait to mkskwait 
store kdctd to mkdctd 
ewere KtCiv to mktciv 
store kinvtd to mkinvtd 
store kpptd to mkpptd 
store kflag to mkflag 
KRRRRKRKRKKRKAKRKKRKKRKRKRKRKRKK KKK 
select 3 
use ktr 
restore from ktr additive 
store cname to mcname 
store caddr to mcaddr 
Ewere Coity to mccity 
store cst to mcst 
Sore #eZ1p to mczip 
store cfscm to mcfscm 
store ctelex to mctelex 
store csmall to mcsmall 
kek RRR KKK RRR KRKRKKRRRKRKRKEE 


select 4 
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use ppr index ppr 

restore from ppr additive 
set filter to pknum—ceomeract 
seek contract+mkcntry 


mprno = mprno + 1 
sysr = mprno 

sysk = contract 
clear 

do base 


Lf mMmelace = © 


store .t. €oemare 
else 
store .f. to mart 
endif 
store .f. to mans 
do while .not. mans 
@ 3,24 say [SP-1443 Progress Payment Request] 
@ 5,12 say [ Enter Cut Off Date: 
mpcod 


if mcsmall 
@ 6,12 say [Incurred Costs 


eligible this period: 


eligible this period: 


eligible this period: 


incurred this period 


Is All Data Correct?: 


mpincst picture '99999999' 
else 
@ 6,12 say [ Paid Costs 
mpdcst picture '99999999'! 
@ 7,12 say [Incurred Costs 
mpincst picture '99999999' 
endif 
fa 8,12 say [ Total Costs 
mptcst picture '99999999'! 
read 
@ Syal2 saya 
mans picture 'Y' 
read 
if snot. mans 
loop 
endif 
mest = mkpricec - (mktcitd + mptcst) 
mnest = 0O 


@ 10,12 say [ 
@ 10,51 say mest picture 
@ Tipe esa 
mnest picture '99999999'! 
if 4noOl. Make 
@ 23 2. “say | 


get mart picture 'Y' 
enait 
if mnest > 0O 
mest = mnest 
endif 
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Computed Estimate to Complete = ] 
"99 ,999799 08 
Enter Best Estimate if different: 


] 


] 


] 


] 


] 


get 


get 


get 


get 


get 


get 


] get 


Has 1st Article been accepted?: ] 


@ 13,12 say [{ Cost of Invoiced items this period: ] get 
mpciv picture '99999999' 


1f mksubk 
@ 14,12 say [ Subcont. payments paid this period: ] get 
mpskppd picture '99999999'! 
Ceeeyeeecay | Subcont. liquidations this. period: ] get 


mpsklpd picture '99999999'! 
@ 16,11 say [Subcont. payments approved, not paid: ] 
get mpskwait picture '99999999'! 


endif 
read 
@ 17,12 say [ Is All Data Correct?: ] get 
mans picture 'Y' 
read 
clear gets 
enddo 
k 
* COMPUTATIONS & TESTS 
* 
fee — Loss check 
* 
mlr = 1 
if mktcitd + mptcst + mest > mkpricec 
clear 
do base 


@ 3,30 say [SP-1443 Loss Contract Worksheet] 
@ 7,12 say [This contract appears to be ina loss position] 


mextra = 0 

@ 9,12 say [Enter pending Change Orders, Unpriced Orders or 
Mods } 

@ 10,12 get mextra picture '99999999'! 

mlr = (mkpricec + mextra) / (mktcitd+mptcst+mest) 
endif 
* 


* --- eligible costs <= total costs 
* 
if max(mpincst,mpdcst) > mptcst 
clear 
do base 
@ 3,30 say [SP-1443 Logical Error] 
@ 12,12 say {Eligible Costs cannot be greater than Total 
Costs] 
@ 14,12 say [Press any key to start over] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
*return to PPR main screen here 
endif 


if mcsmall 
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1in9 = 0 

1n10 = mkiectd + mpincst 
else 

1n9 = mkpectd + mpdcst 

ln10 = mkiectd + mpincst 
endif 


Die rne ting) < Ino 
in9 = int(1ln9) + 1 
endif 
Ve int (inl) no 
Indo = int(Inioj)e- i 
enduke 
daa = (In9 + iInio) * mir 
Lf AaneCin ll) < wea. 
inll = int(inmhest 7 
endif 
lnli2a = mktcitd + mptcst 
1f aint (nize) < Bria 
Inl2a = int(1lnl12a) + 1 
endif 
1ln12b = mest 
LE 1nt (Peaeiby < Pni2b 
inl2b = ane(ind2b) eee 
endif 
igus: = 1ln1ll * (mkKppr/100) 
1f int(Unleie— awe 
1n1i3 = int(1n13) + 1 
endif 
1f mksubk 
inl4a = mkskptd + mpskKppd 
if Ine (ini4aye ani 
lnl4a = int(1lnl4a) + 1 
endif 
1n14b = mkskltd + mpsklpd 
ijeeeyone ieee ce Ihe ile 
1n1l4b = int(1ln14b) + 1 


endif 
Prac = lnl4a - 1n14b 
1n14d = mpskwait 


if int(lni4ea)>< Inia 
1lnl4da = int(inl4d) + 2 
endif 


lnl4e Inl4c + 1n14da 


else 
lnl4a 
1n14b 
hieas 
ln1l4d 
lnl4e 

endif 

rE 

1n16 


lou iu we ol 
OO000 


1ni3 + 1nl14e 
mkpricec * (mkppr/100) 
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mrInt(lni6) < 1nié 
imni6 = int(ini6c) + 


endif 

eta 7 = min( 1n15, 1n16) 

inl s = mkpptd 

1ni19 ii lms 

1n20a = min(mktciv + mpciv, mkpricec) 
ima2 Ob = 1lnll - 1n20a 

m2 Oc = In20b * (mkppr/100) 


mimetic (ln20c) < In20c 
ine20ee——siitilm20c) + 1 


endif 

ane Od = lnl4e 

ln20e = 1n20c + 1n20d 

ine la = mkinvtd 

1n21b = mkpricec - ln2la 
ia2ic = ln21b * (mkppr/100) 


memetnt(ln21c) < In21c 

im2te — ame(in21c) + 1 
endif 
izid = 0 
ime le ee Lees Le 
ii22 = min( 1ln20c, ln21e) 
1n23 = mkinvtd * (mkpplr/100) 
memint(1n23) < 1n23 

inese= ane (in23) + 1 


endif 

In24 = 1n18 - 1n23 
ime 5 = in22 - 1n24 
im26 = min( 1ln25, 1n19) 


* 


* draft report starts here: 
KKK KKK KEK KEK KEK KKEKKEKRKKKER 
select 5 

use aco index aco 

restore from aco additive 
seek contract 

store aconame to maconame 
emore acotitl™to macotitl 
store acoaddr to macoaddr 
pore ACOCLY tO macocty 
store acost to macost 
store acozip to macozip 
store acocd to macocd 
store acotelex to macotelex 
KR KKKRKRREE 
select 6 

use po index po 

restore from po additive 
seek contract 

store poadrl to mpoadril 
store poadr2 to mpoadr2 
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Store pecty oO Mpeccy 
store post to mpost 
store pozip to mpozip 
store pocd to mpocd 
store potelex to mpotelex 
* 
clear 
do base 
@ 3,30 say [SP-1443 Draft Report] 
@ 7,12 say [Ready Printer, Press any Key to print] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
store:.t.- to milacg 
store .t. to mans 
restore from epson additive 


do while mans 
# 


The following is an unindented do loop 


evice to print 
say &mr 
say &m8l 


PRPPeP ct 
PrPRrPP 


=_—e= ome ae oe oe ee ae cee ae ae GS ae ae ae ae GP a ae Ge ee ae ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ees ee ee ee ee ee ee ee Ge 


“ADODODAN +£ + + + + + 


Sousa 

@ 2,1 say i: 

CONTRACTOR'S REQUEST FOR PROGRESS PAYMENT 
OMB sion, 3090-0 Fos" 


@ 3 ; i S a Y 
[ ce ce cece ce es ch Ses cess hc cs se es ee ee ese enh ec eee sc 
ee a ¢ ' 
@ 4,1 say "IMPORTANT: This form is to be completed in 
accordance with instructions on reverse. 

? 
@ 5 ; 1 S a Y 
[ cm ss ee we ee ee ee em cc wm a a a a ae a ae a Fe een Fee es (ee Yee fences ee ees fees cece fees foes oe ee ee eee 
=a 
@ 6,1 say a 


SECTION I - IDENTIFICATION INFORMATION 


@ 7,1 say ( ] 
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@ 


ol Say Pio. Navi eal SADDRESS OF =G6NTRACTING OFFICE 


fee FROM: NAME AND 


(Include ZIP Code) v 


@ 


DDD D dD 


DD DD MDM 


DDDDD DD DMD @® 


@ 


| 
@ 
@ 
@ 
@ 


DD DD MD 


MD @ 


9,1 say a 
| 


tt 
10,1 say a 
| 


10,17 say &md 
10,17 say maconame 
10,80 say mcname 
10,130 say &ms 
mi, it Say ” 

| 


11,17 say &md 
11,17 say macoaddr 
11,80 say mcaddr 
mi, l30 Say &ms 
12,1 say i 

| 


12,17 say &md 
i#2,1/ say macocty 
12,38 Say macost 


ADDRESS 


12,41 say macozip picture '@R 99999-9999! 


12,80 say mccity 
12,101 say mcst 


12,104 say mczip picture '@R 99999-9999' 


12,130 say &ms 
io, Say ey ENC Orr T Gry 


14,1 Say ! 
|3. SMALL BUSINESS 4. 


een TRACT PRICE i 


14,17 say &md 
14,17 say mpoadri 
14,130 say &ms 
m>,l say si 

| 


15,17 say &md 
15,17 say mpoadr2 
15,130 say &ms 
16,1 say r 
: | [ ]¥ES [Ne al 
16,2 say &md 
16, 1oesay mpocty 
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CONTRACT 


OF CONTRACTOR 


NUMBER 


@ 16,40 say mpost 
@ 16,43 say mpozip picture '@R 99999-9999! 
if mcsmall 
@ 16,74 say [X] 
else 
@ 16,83 say [X] 
endif 


@ 16,120 say mkpricec picture '99,999,999' 
@ 16,130 say &ms 


@ y 7 ; 1 Ss a y 
Us. —_1—_oocooawnaewuoaaenwonan an aee ee oe eee oe eee oS eo oS ee ee 
cet 
@ 18,1 say " 6. RATES | 7. DATE OF 
INITIAL AWARD {8A. PROGRESS PAYMENT REQUEST |8B. DATESOR Rit. 
REQUEST " 
@ iv 9 , 1 S a y 
| a a 
----| NO | 

vt 
@ 20,1 say "A. PROG. PYMTS. |B. LIQUIDATION | A. YEAR 
| B. MONTH | | 


@ 20,80 say &md 
@ 20,82 say mprno picture '999'! 
if kkfms 
O°20,87 say mkentry pictures 
endif 
20,109 say sysdate 
20,130 say &ms 
21, 2 say . | 


—- @@ @ 


21,2 say &md 

21,8 say mkppr picture '@R 999.9 %! 
21,26 say mkpplr picture '@R 999.9 4%! 
21,44 say year(mkdate) 

21,62 say month(mkdate) 

21,130 say &ms 


ODD @® @ @ M 


@ 23,1 say " SECT ICH aia 
STATEMENT OF COSTS UNDER THIS CONTRACT  likevcH 
1 
@ 23,95 say &md 
@ 23,98 say mpcod 
@ 23,130 say &ms 
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—__«meaweamwamwmamwawamweamwaweamwamwaweamwmamwmeamaweamwmamwamwamamwamwamwramwamwamwamwea=weamwawaw aBwamwamwanwraweanmranw SB ewe ewe ewer SB ewewaeweawamwamweaweaw aw ew aomwtew es ew amw eT ames a a= 


G25,1 say "9 PARD COSTS “ELIGIBLE UNDER PROGRESS PAYMENT 
CLAUSE 
lias? 
@ 25,120 say &md 
@ 25,120 say 1n9 picture '99,999,999' 
@ 25,130 say &ms 
@ 26,1 say "10. INCURRED COSTS ELIGIBLE UNDER PROGRESS PAYMENT 
CmAUSE 
| 1 
@ 26,120 say &md 
@ 26,120 say 1n10 picture '99,999,999'! 
@ 26,130 say &ms 
@ 27,1 say "11. TOTAL COSTS ELIGIBLE FOR PROGRESS PAYMENTS 
(Item 9 plus 10) 
| eS | 1 
@ 27,120 say &md 
@ 27,120 say 1nll picture '99,999,999' 
@ 27,130 say &ms 
@ 28,1 say ni2a., TOLAL  COsmts -LNCURREDMLO DATE 
l$ 
| tt 
@ 28,103 say &md 
@ 28,103 say 1ni2a picture '99,999,999' 
@ 28,130 say &ms 
@ 29,1 say i b. ESTIMATED ADDITIONAL COST TO COMPLETE 
| 
| we 
@ 29,103 say &md 
@ 29,103 say 1n1l2b picture '99,999,999' 
@ 29,130 say &ms 
@ 30,1 say ise Lie M er eMULEEPLEED BY LTEM Ga. 
| SS OOS SSS OO | ft 
@ 30,120 say &md 
@ 30,120 say 1n13 picture '99,999,999' 
@ 30,130 say &ms 
@ 31,1 say "14a. PROGRESS PAYMENTS PAID TO SUBCONTRACTORS 
| 
| t 
@ 31,103 say &md 
@ 31,103 say 1nl4a picture '99,999,999'! 
@ 31,130 say &ms 
@ B21 say u Ibe LIQUIDATED PROGRESS PAYMENTS TO 
SUBCONTRACTORS | 
| ? 
@ 32,103 say &md 
@ 32,103 say 1n14b picture '99,999,999' 
@ 32,130 say &ms 
@ 33,1 say u Gi UNLIQUIDATED PROGRESS PAYMENTS TO 


SUBCONTRACTORS (Item 14a less 14b) | 


yl 


| 11 
33), LOSecay Sma 
33,103 say 1nl4c picture '99,999,999' 
33,130 say &ms 
34,1 say u dad. SUBCONTRACT PROGRESS BILLINGS APPROVED FOR 
CURRENT PAYMENT | 
| " 

@ 34,103 say &md 
@ 34,103 say 1n1l4d picture '99,999,999' 
@ 34,130 say &ms 
G35) say : e. ELIGIBLE SUBCONTRACTOR PROGRESS PAYMENTS 
(Item 14c plus 14e) 

w 


OO ®D @® @ 


| 

@ 35,120 say &md 

@ 35,120 say 1nl4e picture '99,999,999' 

@ 35,130 say &ms 

@ 36,1 say "15. TOTAL DOLLAR AMOUNT (Item 13 plus 14e) 
| sec: ish eeu am eck ea Mea eae ee em ec acs ta | iB 

@ 36,120 say &md 

@ 36,120 say 1n15 picture '99,999,999'! 

@ 36,120 say &ms 

@ 37,1 say "16. ITEM 5 MULTEPLIED BY TEE acs 


| 
@ 37,103 say &md 

@ 37,103 say 1n16 picture '99,999,999! 
@ 37,130 say &ms 

@ 


38,1 say "17. LESSER OF ITEM 15 OR ITEM 16 
| ace cms ems os on ee | tf 
@ 38,120 say &md 
@ 38,120 say 1n17 picture '99,999,999'! 
@ 38,130 say &ms 
@ 39,1 say "18. TOTAL AMOUNT OF PREVIOUS PROGRESS PAYMENTS 
REQUESTED 


| 8 
@ 39,120 say &md 
@ 39,120 say 1n18 picture '99,999,999' 
@ 39,130 say &ms 
@ 40,1 say "19. MAXIMUM BALANCE ELIGIBLE FOR PROGRESS PAYMENTS 
(Item 17 less 18) 
| iB 
@ 40,120 say &md 
@ 40,120 say 1n19 picture '99,999,999' 
@ 40,130 say &ms 
@ 


@ 42,1 say 0 SECTION Jit 
COMPUTATION OF LIMITS FOR OUTSTANDING PROGRESS PAYMENTS 


Te 


@ 43,1 say 
iio i RUCTIONS 
REGULATION. 


@ 45,1 say 


Pook ork C TAL 
ON- BACKMIOR USE UNDER @THE “FEDERAL ACOUISITION 


[oO ee OMP OAT ON Or PROGRESS “PAYMENT CLAUSE 


(a(3) (i) or a(4)(i)) LIMITATION « | 
et 


@ 46,1 say " a. COSTS INCLUDED IN ITEM 11, APPLICABLE TO 
DELIVERED, INVOICED, AND | 3s 
| tf 
@ 46,100 say &md 
@ 46,105 say 1n20a picture '99,999,999! 
@ 46,130 say &ms 
@ 47,1 say “ ACCEELEDeLO: THE DATE IN HEADING OF SECTION 
ee | 


| 
@ 48,1 say 


. b. COSTS ELIGIBLE FOR PROGRESS PAYMENTS, 


Pee etCABLE TO UNDELIVERED ITEMS | 


@ 49,1 say 


" AND TO DELIVERED ITEMS NOT INVOICED AND 


ACCEPTED (Item 11 less 20a) | 


| tt 
49,100 say 
49,105 say 
49,130 say 
50,1 say 


OD DOD @® 


@ 50,120 say 
@ 50,120 say 
@ 50,130 say 
@ 51,1 say 
(Item 14e) 
| et 
@ 51,120 say 
@ 51,120 say 
@ 51,130 say 
@ 52,1 say 
plus 20d) * 
tf 


G52, 120 say 
@ 52,120 say 
@ 52,130 say 
@ 53,1 say 
face) (amr) Or 


@ 54,1 say 
AND INVOICED 


&md 
1n20b picture '99,999,999'! 
&mMms 

z c. ITEM 20b MULTIPLIED BY 6a 
a-—-—=|'5" 
&md 
1n20c picture '99,999,999' 
&Ms 

" d. ELIGIBLE SUBCONTRACTORS PROGRESS PAYMENTS 
&md 
1n20d picture '99,999,999'! 
&ms 

" e. LIMITATION a(3)(i) or a(4)(i) (Item 20c 
&md 
In20e picture '99,999,999' 
&ms 

"21. COMPUTATION OF PROGRESS PAYMENT CLAUSE 


a(4)(ii)) LIMITATION * 
vt 


" a. CONTRACT PRICE OF ITEMS DELIVERED, ACCEPTED 
TO DATE IN | 
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54,100 say 
54,105 say 
54,130 say 
Dol voi? 


OO @ @D— 


DO, a say 
CCEPIED AND 
| " 
Sor LOO 
50705 
DO, Lo 
27, Ll -say 


> a — 


say 
say 
say 


DO OD MD m 


@ 57,120 say 
@ 57,120 say 
@ 57,130 say 
@ 58,1 say 
CER RES 

te 
@ 58,120 say 
@ 58,120 say 
@ 58,130 say 
@ 59,1 say 
less 21d) * 
| v9 
@ 59,120 say 
@ 59,120 say 
@ 59,130 say 
@ 60,1 say 
of item 20e 


@ 60,120 say 
@ 60,120 say 
@ 60,130 say 
@ 61,1 say 


| tt 
@ 61,100 say 
@ 61,105 say 
@ 61,130 say 
@ 62,1 say 
23) 


@ 62,120 say 
@ 62,120 say 
@ 62,130 say 


&md 
ln21a picture 
&Mms 

: HEADING OF SEGIEION if 


199,999,999! 


o b. CONTRACT PRICE OF ITEMS NOT DEER E-aer 
INVOICED (Item 5 less 21a) | 
&md 
1ln21b picture '99,999,999' 
&ms 
” c. ITEM 21b MULTIPLIED BY Piniinses 
a | ve 
&md 
in21l¢ .~p2cture “Oo-99Cr cor 
&Mms 
: ad. UNLIQUIDATED ADVANCE PAYMENTS PLUS ACCRUED 
&md 
ln2iea. picture *997 999-999" 
&ms 
° e. LIMITATION (a(3) (11) or a(4) (11)) (iteenzee 
&md 
In2le picture '99M999 "00>"! 
&ms 
"22. MAXIMUM UNLIQUIDATED PROGRESS PAYMENTS (Lesser 
or 21e) 
Sa | v9 
&md 
1n22 picture '99,999,999' 
&ms 
"23. TOTAL AMOUNT APPLIED AND TO BE APPLIED TO 
REDUCE PROGRESS PAYMENT | 
&md 
1n23 picture '99,999,999' 
&ms 
"24. UNLIQUIDATED PROGRESS PAYMENTS (Item 18 less 
===] 1 
&md 
1n24 picture '99,999,999' 
&ms 
"25. MAXIMUM PERMISSIBLE PROGRESS PAYMENTS (Item 22 


@ 63,1 say 
less 24) 
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@ 63,120 say &md 
me. not. mart 
@ 63,62 say thirst AreielesEimitacion Applies" 
ieee. 5 Sa 
imn2so— maini(mklart, ln25) 
else 
ine ose— mx lart 
endif 
@ 63,120 say 1n25 picture '99,999,999' 
fae 68 — mim in25, lnl9) 


else 

@ 63,120 say 1n25 picture '99,999,999' 

endif 

@ 63,130 say &ms 

@ 64,1 say "26. AMOUNT OF CURRENT INVOICE FOR PROGRESS PAYMENT 


(Lesser of Item 25 or 19) 


| 

@ 64,120 say &md 

@ 64,120 say 1n26 picture '99,999,999' 

@ 64,130 say &ms 

dao, 1 say "27. AMOUNT APPROVED BY CONTRACTING OFFICER 

| tt 

@ 6 6 > iL Ss a y 

ge a ES ee eee SS eae ee ee a a a a a a rs 


oa=p a= a= a= a= cep ae ae ae oop oe cee ae oo oo ome = cs oo oe oo oe os oe oo oe os ee oe ome cee SP oo oe oe Se oe SP oe ee eee SP ee ee eee eee oe oe Se ee ee Se ee ee oe oo ee eo ce ae ee a ea a= a= 


@ 67,1 say 

GCERTEELCATION 
@ 69,1 say "T certify that the above statement (with 
attachments) has been prepared from the books and records of the 
above-named contractor" 


@ 70,1 say "in accordance with the contract and the 
instructions hereon, and to the best of my knowlege and belief, 
iat 1t is correct, " 

@ 71,1 say "that all the costs of the contract performance 


(except as herewith reported in writing) have been paid to the 
extent shown herein, " 


@ 72,1 say "or where not shown as paid have been paid or will 
Be paid currently, by ene ecomeraccon, when due, in the 
ordinary course of" 

@ 73,1 say "business, that the work reflected above has been 
performed, that the quantities and amounts involved are 
consistent with the" 

@ 74,1 say "requirements of the contract. That there are no 
encumbrances (except as reported in writing herewith, Or) on 
previous progress" 

@ 75,1 say "payment request No. ) against the property 
acquired or produced for, and allocated or properly chargeable 
aomcene contract" 

@ 76,1 say "which would affect or impair the Government's 
tke, that there has been no materially adverse change in the 


i 


financial condmtton” 

@ 77,1 say "of the contractor since the submission of the most 
recent written information dated by the contractonmmee 
the Government" 

@ 78,1 say "in COnnecticn) Wiehe ec oncrace, that to the 
extent of any contract provision limiting progress payments 
pending first article" 

@ 79,1 say "approval, such has been complied with, and that 
after the making of the requested progress payments’ the 
unliquidated progress" 





@ 80,1 say "poayments will not exceed the maximum unliquidated 
progress payments by the contract. " 

@ 8 2 ; i Ss a y 

| Pn 
DT a ee 

@ 83,1 say "NAME AND TITLE OF CONTRACTOR REPRESENTATIVE 
SIGNING THIS |SIGNATURE " 

@ 84,1 say "FORM 


@ 85,1 say u 
eet 
if mflag 
@ 85,25 say &md 
@ 85,83 say [DRAFT COPY ONLY, NOT FOR SUBMISSION !!!] 
@ 85,130 say &ms 
endif 
@ 86,1 say : 


@ 8 i ; ui S a 4 
tl reo eee eee ee ee ee ee SS SS ee eS SS | SS SS 
EEL LEE NN 
88,1 say "NAME AND TITLE OF CONTRACTING OFFICER 
|SIGNATURE " 


@ 89,1 say i 

ag 
@ 90,1 say " 

ey 
@ 90,10 say &md 
@ 90,10 say macotitl 
@ 90,130 say &ms 
@ 91,1 say 7 
@ 


@ 93,1 say "NSN 7540-01-140-5523 
1443-101 STANDARD FORM 
1443 (10-82) " 
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@ 94,1 say " 
Prescribed by 
See(hPR 1-16.808) " 
@ 95,1 say 7 
FAR (48 CFR 
53.232)" 
@ 96,1 say &mcr 
@ 96,1 say &mr 
@ 96,1 say &mff 
* 


set device to screen 
* 
do base 
1f mflag 
@ 3,30 say [SP-1443 Progress Payment] 
@ 10,12 say [A Draft P P R has been generated. ] 
@ 11,12 say [If the request is acceptable, Enter a Y] 
@ 12,12 say [Enter N to start over ... ] get mans picture 
yi 
read 
clear gets 
store .f. to mflag 
im <Not. mans 
close databases 
release all like m* 
return 
ened f 
else 
@ 3,30 say [(SP-1443 Progress Payment] 
@ 10,12 say [Updating Contract Files] 
seore .f. to milag 
store .f. to mans 
endif 
* 
enddo 
* 
* 
kKeKRRKRKRKRKRKRKRKRKRKRRKRKRKRKRRKRKRREE 


select 4 
mtein26> O 

mpramt = 1n26 
else 

mpramt = 1n19 
endif 


append blank 

replace pcod with mpcod 
replace prno with mprno 
replace pprdt with mpprdt 
replace pramt with mpramt 
replace pdcst with mpdcst 
replace pincst with mpcinst 
replace pskppd with mpskppd 


a7 


replace psklpd with mpsklpd 
replace pskwait with mpskwait 
replace pentry with mpcntry 
replace ptcst with mptcst 
replace pciv with mpciv 
replace pknum with contract 
KHEHRKKKKKEKKKKEKKEKEKKKEKES 
select 2 

replace ktcitd with lnl2a 
replace kpectd with 1n9 
replace kiectd with 1n10 
replace kskptd with l1nl4a 
replace kskltd with 1n14b 
replace kpptd with mkpptd + mpramt 
KEKKEKEKEKEKEKEKEKKREKKKKEKESK 
release all like M* 

close databases 


sysr = Wekee i 

sysk = "none selected" 
do base 

return 


*GOL Dpr-pEg 

* isp.prg 

* Author: Walt Harsch 
* 


+ Fe + HF F 


clear 

Store space(1/). £O comerace 
store .t. to mansa 

store .f. to mansb 


store " " to choice 
do base 
@3,24 say [SP-1443 Invoice/Shipment/ Payment] 
G99 7S say (Enter Contract Number ... or Return to Cxilt: jee 
contract picture '@R '!'ltl- ee 
read 
it <COnerace. = a 
return 
endif 
Goi 20. Say aie Record an Invoice] 
@ 12,20 say [2 Record a Shipment] 
@ 13,20 say [3 Record a Payment] 
@ 14,20 say [9 Return to Main Menu] 
@ 16,20 say [Enter your selection: ] get choice 
read 
sysk = contract 
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clear 
ado base 
do case 


KRHEEKKKKKKKEKEKKKKKKKEKRKEEER 


<r invoice * 
KeEKKKKKKKKKKHKKHKKAKKAKKKEEKSE 


case choice = '1' 

@3, 28 say [SP-1443 Invoice] 
select 1 

use ka index ka 

restore from ka additive 
seek contract 

store kfms to kkfms 

eeere ‘US’ to mkentry 

use inv index inv 

restore from inv additive 
@o while .not. mansb 


@ Velo. say [ Enter Invoice Number: ] get minvono 
pueture '@R !!!—_!i!!' 

@ 8,12 say [ Enter Invoice Date: ] get minvodt 

@ 9,12 say [ Enter Invoice Amount: ]} get minvamt 
picture '99999999.99' 

if kkfms 

@ 10,12 say [ Enter FMS code: ] get mkcntry 

pecure '!!' 

endif 

read 

@ 11,12 say [ Is All Data Correct?: ] get mansb picture 
my * 

read 
enddo 
store .f. to mansb 
select 2 
use invr 


do while mansa 

store space(7) to minvosh 

Gy i372 say ([ Shipment # Invoiced: ]} get minvosh 
picture '@R !!!e!!!i'! 

read 

append blank 

replace iknum with contract 

replace invono with minvono 

replace invosh with minvosh 

@ 15,12 say [Are there more Shipments?: ] get mansa picture 
ny 

read 

Clear gets 
enddo 
select 1 
append blank 


Ao 


replace iknum with contract 
replace invono with minvono 
replace invodt with minvodt 
replace invamt with minvamt 
release all like m* 

close databases 


KRHKRKEKKKRRKEKKRKKKKRRRKEKKEERE 


* Shipments * 
KKeKKKKKKKKRRKRRKRRRRRRRREE 


case choice = '2! 

@ 3,28 say [(SP-1443 Shipment] 
select 1 

use ka index ka 

restore from ka additive 
seek contract 

store kfms to mkfms 

store "US" to mkcntry 

use ship 

restore from ship additive 
do while .not. mansb 


@ Dye Saver Enter Shipment Number: ] get mshipno 
picture. '@R Meret: 

@ 6,12 say [ Enter Shipment Date: ]} get mshipdt 

read 

@ 8,12 say [ Is All Data Correct ?: |] geéum@mangece 
DIGEUBes: 

read 
enddo 
select 2 


use shipr 
store .t. to mansa 
store .f. to mansb 
do while mansa 
do while .not. mansb 
store space(7) to msclin 
mshipqty = 0 
@ 10,12 say [ Enter CLIN # Shipped: ] get msclin 
Dictures! 1! aia 
@ 11,12 say [Enter CLIN Quantity Shipped: “jie. 
mshipgty picture '999999'! 


read 
@ 13,12 say [ Is All Data Correct?: ] get mansb 
PILCEUEC wa 
read 


enddo 

store .f. to mansb 

append blank 

replace sknum with contract 
replace shipno with mshipno 
replace sclin with msclin 


80 


replace shipgty with mshipqty 


@ 155 12..say - I Are there more CLINs?: ]} get mansa 
picture ‘'Y' 

read 

clear gets 


enddo 

select l 

append blank 

replace sknum with contract 
replace shipno with mshipno 
replace shipdt with mshipdt 
release all 1ike m* 

close databases 


KRREKREKRKKKRKKRKRKRKRKRKRRKKKRERSE 


* Payments * 
KREKKEKKKEKKKKKKKKKKEKKEKEKEK 


case choice = '3'! 

@ 3,28 say [SP-1443 Payments] 
select 1 

use pay 

restore from pay additive 
store .f£f. to mansb 

store .t. to mansa 

do while .not. mansb 


@ SZ say  [ Enter Check Number: ] get mpyckno picture 
'999999999999999' 

@ 9,12 say [ Enter Check Date: } get mpydate 

@ 10,12 say [ Enter Check amount: ] get mpyamt picture 


'99999999.99! 
@11,12 say [Enter Discount Amount: ] get mpydisc picture 
'99999999.99'! 
read 
@ 13,12 say [Is All Data Correct?: ] get mansb picture 'Y' 
read 
append blank 
replace pyknum with contract 
replace pyckno with mpyckno 
replace pydate with mpydate 
replace pyamt with mpyamt 
replace pydisc with mpydisc 
enddo 
release all like m* 
close databases 


case choice = '9! 
clear 

do base 

return 


endcase 
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sysk = 'none selected' 
clear 

do base 

return* mod.prg 


* Author: Walt Harsch 
* 


* 
* 
* 


do base 

store .t. to mansa 

Store cE. Ce Mans 

PUBLIC contract 

store space(17) to contract 

@ 3,27 say (SP-1443 Contract Modification) 


@ 10,5 say (Enter Contract Number ... or Return to exit: 


gontract picture "@R [! Uli lett! 
read 
if Gontrwact = se" 

return 
endif 
sysk = contract 
mmodamt = O 
do base 
select 1 
use mod index mod 
restore from mod additive 
select 2 
use modr index modr 
restore from modr additive 
select 3 
Wse- Clan inde xeenan 
restore from clin additive 
set filter to cknum=contract 
do while mansa 

do while .not. mansb 

@ 3,28 say [(SP-1443 Modification Screen] 


} 


get 


@ 7,12 say [Modification Number: ] get mmodno picture 


@ 9,8 say [ CLIN #: j] get mmoclin picture 


@ 9,48 say [Date of Mod.: ] get mmoddt 


@ 10,8 say [Non-$ mods.?: ] get mmoadmin picture 'Y' 


read 
seek mmoclin 
if eof() 
@ 14,8 say [CLIN not found...Press any key] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 


+ + FF 
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+ + + % 


m9 999" 


clear 
do base 
loop 


endif 


store 
store 
store 
store 
store 
store 


CqLryc to mnogey.t 
eCeqEvye CO MNOgr Ee 
cpricec to mmoprf 
SpE teec EO Nmoprt 
cduec to mmoduef 
cduec to mmoduet 


select 2 


OO @® OO Mm 


moo, 999.99)! 


Wy 


@ 
@ 
@ 


iz, o Say [ Ola Oty: 7 
12,26 say mmogtyf picture 
12,48 say f[ 


1999999! 
New Qty: ] get mmoqtyt picture 


Powe say | 
13,26 say mmoprf picture 
13,48 say [ 


Old Price: ] 
Bo Io ooo. 
New Price: ]} get mmoprt picture 


T4228 
14,26 
14,48 


say [Old Due Date: ] 
say mmoduef 


say [New Due Date: ] get mmoduet 


read 


@ 


16,22 say [Is All Data Correct?: ]} get mansb picture 


read 


mmodamt = 


enddo 


@ 16,22 say 


peeture "y" 


read 
sts 


mmodamt + ((mmoqtyt*mmoprt) -(mmoqtyf*mmoprf) ) 


[Are there more CLINs to modify?: ] get mansa 


-not. mansa 


select 1 
append blank 


replace 
replace 
replace 
replace 
replace 


modno with mmodno 
moddt with mmoddt 
Neknmume with contract 
modamt with mmodamt 
moadmin with mmoadmin 


endif 


select 2 
append blank 


replace 
replace 
replace 
replace 
replace 
replace 
replace 
replace 
replace 


modno with mmodno 
mOknuMewlen cCOontrace 
moclin with mmoclin 
moqtyf with mmoqtyf 
mogtyt with mmoqgtyt 
moprf with mmoprf 
Meprt: weth MMopce 
moduef with mmoduef 
moduet with mmoduet 
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select 3 
if eof() 
append blank 
endif 
replace cqtyc with mmoqtyt 
replace cpricec with mmoprt 
replace cduec with mmoduet 
enddo 
select 4 
use kb 
store knum to mknum 
locate for knum = contract 
do while knum = contract .and. .not. eof() 
store Keniry toumkenery 
select 3 
mxtprice = 0 
store cknum to mcknum 
locate’ for cknum = COnEract -and= GCenery — imeem, 
do while cknum = contract .and. centry = mkentry vance 
eof () 
Store cqtvye to meqreyve 
store cpricec to mcpricec 
store (mcqtyc*mcpricec)+mxtprice to mxtprice 
continue 
enddo 
select 4 
replace kpricec with mxtprice 
continue 
enddo 
release all like m* 
close databases 
do base 
GBeltunn 


xeof mod.prg* recon.prg 
* Author: Walt Harsch 


* Purpose: To reconcile a given contract 
* 


* 
we 
* 


do base 
store space(17) to contract 
store .f. to mans 
do while .not. mans 
@ 3,24 say [(SP-1443 Contract Reconciliation] 
@ 10,9 say [Enter Contract Number )(crmch tot 12) “a 
contract picture ‘@R !!!i!t!-<!=)- 
read 
1f “contract, —— a. 
Toop 
endif 
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-NnoOee 


get 


use ka index ka 
restore from ka additive 
seek contract 
eee nec, | found () 
@ 12,12 say [Contract not found ... Press any key to 
try again] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
do base 
loop 
endif 
store kgtotal to mdok 
store kdate to mkdate 
* 
use kb index kb 
seek contract+'US' 
store kpplr to mkpplr 
use recon 
append from pay for pyknum = contract 
append from ppr for pknum = contract 
append from inv for iknum = contract 
append from mod for moknum = contract 
* 


memlace all rdate with invodt for invodt > ctod('01/01/01') 
replace all rdate with pydate for pydate > ctod('01/01/01') 
replace all rdate with moddt for moddt > ctod('01/01/01') 
meplace all rdate with pprdt for pprdt > ctod('01/01/01') 
* 
set index to rdate 
reindex 
* Print Subroutine. 
do base 
@ 3,30 say [{SP-1443 Recon Print] 
@ 7,12 say [Ready Printer, press any key to print] 
minkey = 0 
do while minkey = 0 
minkey = inkey() 
enddo 
restore from epson additive 
set device to print 
@1,1 say &mr 
@1,1 say &mc 
mtpramt=0 
mtmodamt=0 
mtpyamt=0 
mtpydisc=0 
mtinvamt=0 
mp = 0 
munligq = 0 
Go LOp 
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do while .not. eof() 
ml = 7 
mp = mp + l 
do while ml <= 63 
1f ml = 63 
eject 
loop 
endif 
if ml = 7 
@ 1,1 say &mr 
@1,1 say &mc 
Y 3,30 say [CONTRACT RECONCILIATION REPORT ree 
CONTRACT #: ] 
@ 3,83 say contract picture *@R OP!) !!) hee 
Cy hte 
@ 3,105 say date() 
@ 3,120 say [{Page: ] 
@ 3,126 say mp picture '999! 
@ 5,1 say [Date] 
@ 5,10 Say (Activia) 
@ 5,23 sayy (S Duc onmeonte. | 
@ 5,38 say {Unliquidated $] 
@ 5,53 say [Prog. Pay Reg. ] 
@ 5,68 say [ +(-) K Mods.] 
@ 5,83 say [ Payments Rec. ] 
@ 5,98 say f{ Discounts] 
@ 5,113 say [ Invoices] 
mi=1 
do while mi <= 130 
@ 6,mi say "=" 
mi=mit+l 
enddo 
endif 
1f ml=7 .and. mp=1 
@ml,1 say mkdate 


@ml,10 say [New Contract] 
@ml,23 say mdok picture '99,999,999.99'! 
ml=m1+1 
loop 
else 
@ml,1 say rdate 
IE mame sO 


@ml,10 say 
@ml,16 say 
@ ml,20 say 

endif 

1f modamt > 0O 
@ml1,10 
@ml,16 

endif 

1f pyamt > 0 
@ ml,10 


say 
say 


say 


(PPR # ] 
prno 
peneEy 


(MOD # ] 
modno 


[CHK # } 
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Can 0e saves yckne 
endif 
it invamnt = 6 
@ml,10 say {INV # ] 
@ ml,16 say invno 
endif 
endif 
madok = mdok + modamt - pyamt 
munliq = max(munliqtpramt - ((mkpplr/100) *pyamt) ,0) 


@ ml,23 say mdok picture '99,999,999.99' 
@ ml,38 say munlig picture '99,999,999.99' 
@ml,53 say pramt picture '99,999,999.99' 
@ml,68 say modamt picture '99,999,999.99'! 
@ml,83 say pyamt picture '99,999,999.99' 
@ml,98 say pydisc picture '99,999,999.99' 
@m1l,113 say invamt picture '99,999,999.99' 


Megmantc = mMepramt + pramt 
mtmodamt = mtmodamt + modamt 
mtpyamt = mtpyamt + pyamt 
mtpydisc = mtpydisc + pydisc 
mtinvamt = mtinvamt + invamt 
ml = ml +l 
i: “sMotcne eof () 
skip 
else 
exit 
endif 
enddo 
enddo 
* 
mi=1 
ado while mi <= 130 
@ ml,mi say [{-] 
mi =mi+tl 
enddo 
ml = ml+l1 
mil,i say [TOTALS] 
me, 53 say mtpramt picture '99,999,999.99' 
ml,68 say mtmodamt picture '99,999,999.99' 
ml,83 say mtpyamt picture '99,999,999.99' 
ml,98 say mtpydisc picture '99,999,999.99'! 
ml,113 say mtinvamt picture '99,999,999.99' 
eject 
set device to screen 
release all like m* 
zap 
close databases 
return 
+ 


* eof recon.prg 


ODO OO@ Mm 
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APPENDIX B 


SP-1443 USER'S MANUAL 


Sras4 3 
A Program for Managing Contract Progress Payments 
USER'S MANUAL 

This manual assumes that the user has a basic 
familiarity with the personal computer, its operating system 
(DOS) and the basic concept behind Government contract 
progress payments. If this is not the case, the computer 
user's manual, the DOS user's manual, The Federal 
Acquisition Regulation and Standard Form 1443 (progress 
payment form) should provide enough information to use the 
program effectively. 

As with any new software product, it is wise to make a 
duplicate copy of the program disk prior to usage as a 
"backup." This program is free of any copy protection and 
can be duplicated without special hardware or software. The 
program can be run from either a hard disk or floppy drive. 

ABOUT THE PROGRAM: Written in the winter of 1988 as 
part of a thesis on contract management and automation, this 
program sets up "files" on the disk that contain basic 
contract information. There is virtually no limit to the 
number of contracts or contract actions that can be recorded 


from the software point of view, but disk space could become 
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an issue. The user is cautioned to periodically check to 
insure that the data disk in use has a reasonable amount 
(10,000 bytes or so) of free space remaining. Additional 
data diskettes may be created by copying all of the non- 
program files (everything except SP-1443.EXE) from the 
Gistribution diskette to a blank, formatted diskette. 
Backups of data diskettes may be made by the normal copy or 
backup procedure. 

This program will generate a hard copy form that very 
closely resembles a SF-1443 form, suitable for submission 
and payment. Mimaddtelon- elt wlll = track Such contract 
activity as Shipments, Invoices, Payments and Modifications. 
A second report, the Contract Reconciliation, is a 
chronological history of the program from the day it was 
Signed to the date the report is generated. This report 
summarizes the financial activity of the contract, and shows 
such information as unliquidated progress payments, and 
total discounts taken, just to name two. 

CONVENTIONS : In this manual, text presented inside the 
angle brackets, < >, is intended to be typed on the keyboard 
on the computer. In the same manner <return> indicates that 
a carriage return or "enter" should be typed. 

SET UP PROCEDURES: To load the program, simply type 
<SP-1443> and <return>. The first screen you will see is 


the Main Menu (see Figure 6). 
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$P-1443 Main Menu 
Function: 


Input/Edit/Terminate a Contract 
Generate a Progress Payment 

Process Invoices/Shipments/Payments 
Process Contract Modifications 
Generate Contract Reconciliation 
Input/Edit Contractor Data 

Set Program Defaults 

Exit and return to DOS 


Enter your selection: § 


Contract No. none selected Today’s Date 03/24/88 
Progress Pymt, No 3886 Data is on Drive a:\ 





Figure 6. SP-1443 Main Menu 


All of the screens in SP-1443 will have the same general 
fommar. The screen will be titled at the top so the user 
has a fair idea of where he or she is in the program at any 
Given time. The bottom status block will reflect pertinent 
program information, and will change as different contracts 
are selected etc. 

From the Main Menu, select option 7, "Set Program 
Defaults." This will present another screen that will 
prompt you for the disk drive and path that you intendeaee 
use for your data. The program is initially set for drive 
A:\. It 1s important that you enter a valid drive and path, 
as the program will use what you type in literally (Figure 
Tye There is no need to do this every time you run the 


program, but it can be changed any time you desire. 
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SP-1443 Program Setup 


Drive & Path 


Contract No. none seiected Today’s Date 83/24/88 
Progress Pymt. No 2H Data is on Drive ALN 





Figure 7. SP-1443 Program Setup 


Remember to copy all files except the SP-1443.EXE file to 
the data drive or path that you select. These files contain 
the formats that will be needed to save your contract data. 
The program will add, modify or delete information in the 


files, but cannot create them from scratch. 


Mie = —frrst = time you run the “program, Tae a IU 
automatically create some "*.MEM" files. These speed up 
operations for the program later. There 1S nothing the 


operator needs to do, it is a fully automatic operation. 

The other initial selection that is supported on this 
screen is the printer selection. Currently Epson compatible 
dot matrix printers and Hewlett Packard compatible laser 


printers are supported. You may select either one prior to 


onl 


printing, once a selection is set, it will stay set until 
you specifically change it again. 

INPUTTING A CONTRACT: Option 1 will bring up a new 
screen that will ask you for a contract number. The system 
is set up to automatically convert lower case letters to 
upper case. Up to 17 characters (letters and or numbers) 
can be used. The standard DoD contract numbering scheme is 
portrayed for clarity, however, the data is stored as a 
Single string of characters without hyphens or blanks. 
There is no need to insert them when entering a contract 
number. If you are entering a non-DoD contract number, 
Simply type it in and press <return>. Similarly, contracts 
with delivery order numbers will use all 17 spaces, but 
those without will leave some blanks. Again, just enter the 
number and press <return>. 

When the contract number is entered, another small menu 
will appear (Figure 8). Select the option you desire. 
CAUTION; to preserve data integrity, this system will let 
you edit a contract only once! If a typographical, Gian 
other error is detected after the first edit, you must use 
main menu option #4, and insert an administrative contract 
modification. Any numbering convention will be accepted, 
but using C0O00O01 for the first "internal" contractor mod 
will make it easier to follow. Use the actual modification 


numbers for contract modifications signed by the government. 
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$P-1443 Contract Data 





Enter Contract Number: 


1 Add a New Contract 

a Edit a Contract 

3 Delete a Closed Contract 
9 Return to Main Menu 


Enter your selection: J 


Contract No. none selected Today’s Date @3/24/88 
Progress Pymt. No st Data 1s on Drive A:\ 


Figure 8. SP-1443 Contract Data 


Miewmexee GConcract Data Screen will ask for the Date of 
the contract and if there is FMS or Subcontracts contained 
in the contract (Figure 9). The next section asks for the 
First Article dollar limit (if applicable) and the Progress 
Payment and Liquidation Rates. These amounts are entered as 
whole numbers, 1.e., 80% would be entered as <80> <return>. 

The next two screens ask for ACO and Paying Office data 
(Figures 10 & 11). Most of this is self explanatory. The 
last two items however, I.D. Codes and Telex numbers may 
need further explanation. The "code" numbers can be found 
Mic ne tron« page Of your contract. if 2e 1s a Standard 
Form 26, look in the upper right hand corner of blocks 5 (or 
aye 12° These codes uniquely identify each Government 


activity. The telex numbers refer to an "electronic mail 
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§P-1443 Contract Data 


Date of Contract: 
FHS 2: 


Subcontracts 2! 
Is All Data Correct?: 


First Article $ limit: 
Progress Payment Rate: 
Liquidation Rate: 


Is All Data Correct?: 


Contract No, N@@@@8-87-¢-28@5 Today’s Date 3/24/88 
Progress Pymt. No set Data is on Drive Ai\ 


Figure 9. SP-1443 Contract Data 


SP-1443 ACO Data 


Admin. Contracting Office: 
ACO Name & Title: 

ACO Address: 

ACO City: 

ACO State: 


ACO Zip: 
Contracting Office I,D, Code: 
Contracting Office Telex #: 


Is All Data Correct?: 


Contract No, N@G6@Q@-87-C-@885 Today’s Date 83/24/88 
Progress Pymt, No 3H Data is on Drive A:\ 


Figure 10. SP-1443 ACO Data 


94 





™ 














SP-1443 Pay Office Data 





ae Office Name: vi? lym TG 
Baan Office Address: [BRL Hashington ie _ 
Paying Office City: feo 
Fan Office State: 
aying Office Zip: 
faulng Office Code: 
Paying Office Telex #: 


Is All Data Correct?: jj 





Contract No. N@@GBQ-87-C-8005 Today’s Date 3/24/88 


Progress Pymt. No 3H Data is on Drive A:\ 





Figure 11. SP-1443 Pay Office Data 


number" used to route commercial message traffic. Boviager 
these entries are optional and will not effect the hard copy 
eee 1443. 

You will note that the program will not ask you for the 
contract value. in porder wee Mdlmtalin closer track on 
contract status, you will be asked to enter each of the 
eis chatehave funds attached. The program will "roll up" 
the values, and when you answer the "Are there more CLINs?" 
question with <N>, the total contract price will appear on 
the screen. This figure should equal the face amount of the 
Bemeract. 2f it does not, then double check the entries and 
Patt “the contract. You may enter CLINsS without monetary 


value "not separately priced" if you wish, they will have no 


oo 


effect on the program, but they will show up as "delivered" 
(1f they have been) on the Contract Reconciliation form 


under Option 5 (Figumemnr2 = 


$P-1443 CLIN Data 


CLIN &: 

_ Quantity: 
Unit of Issue: 
Unit Price: 
Delivery Date: 





Is All Data Correct?: 


Are There More CLIN’ s?: 


Contract No. N@@@GB-87-C-BB85 Today’s Date 03/24/88 
Progress Pymt. No #4 Data is on Drive AN 





Figure 12. SP-1443 CLIN Data 


INPUTTING CONTRACTOR DATA: This option is needed only 
once. It records your company's name, address ete.) and 
infrequently changing data (whether or not you are a Small 
Business, for example). This information can be edited at 
any time, but once entered, it is recorded on disk, and does 
not have to be re-entered unless something changes. 

GENERATE A PROGRESS PAYMENT: This is the meat of the 
program. Considerable effort has gone into reducing the 
amount of user information needed to produce a complete and 


valid progress payment request. As with most main menu 
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options, the user is asked to enter a contract number. ie 
the contract you select has FMS (foreign military sales) on 
it, then a country code will be requested. The country code 
is a two character code that should be associated with the 
various CLINs (Contract Line Item Numbers) in your contract. 
Because the Government must keep the "books" for these 
countries (and later bill them), this program treats each 
country as though it had a separate SOneenee With you. Each 
country will start at 001 for the progress payment 
associated with it. Frankly, FMS can get a little 
complicated. If you have questions, please contact your 
Administrative Contracting Officer (ACO). This program was 
designed to keep these accounts separate for accounting 
purposes, and allows different payment and liquidation rates 
mee each country. If there is FMS on a contract, the 
country code will appear next to the progress payment 
request number in block 8a of the form. In an effort to 
Simplify the progress payment request process, the amounts 
that are asked for on the progress payment request screen 
(Figure 13) are for the "current period" only. That is to 
say, only the incremental costs (paid, incurred, etc.) that 
have accumulated since the last progress payment request 
need to be entered. Since the program keeps track of the 
running totals, there is no need to compute any "to date" 


amounts. If there are no subcontractors involved, the 
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$P-1443 Progress Payment Request 


Enter Cut Off Date: 

Paid Costs eligible this period: 
Incurred Costs eligible this period: 
Total Costs incurred this period: 

Is All Data Correct?! 

Computed Estimate to Complete = 
Enter Best Estimate if different: 
Has ist Article heen accepted?: 

Cost of Invoiced items this period: 
Suhcont, payments paid this period: 
Subcont. liquidations this period: 
Subcont. payments meee not paid: 
] Data Correct?: 





Contract No. N@@GQQ-87-C-GGGL Today’s Date @3/24/88 
Progress Pymt. No 1 Data is on Drive A: \ 





Figure 13. SP-1443 Progress Payment Request 


Subcontract related questions will not be asked, and zeros 
entered in the appropriate blocks of the final form. 
IMPORTANT: After the current period costs have been 
collected, the program will compute the balance of funds 
remaining on the contract and display that amount on the 
screen. If your best estimate to complete the contract is 
different, enter that amount in the corresponding block waren 
ADVISED: if you enter a larger amount, you are effectively 
Saying that the contract may be in a loss position. The 
program will detect this and ask you if there are any 
unpriced or undefinitized contract actions, Or if tnerewanre 
pending but not yet received contract mods. These amounts 


will be entered automatically into the formula prescribed in 
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the Federal Acquisition Regulation (FAR) part 35 regarding 
[fess pesitlon Contracts. If the contract is still ina loss 
position, the loss ratio will be automatically computed, and 
the figures on the resulting progress payment request will 
metlect that ratio. 

Conversely, if you feel that a significantly smaller 
estimate to complete is appropriate, the program will take 
Mor action other that reporting it on the form. The ACO 
should be apprised of the situation however, so that funds 
can be deobligated and released for other possible 
procurements. 

Most of the numbers are self explanatory on this screen, 
however two bear explanation. 1. TOTAL COSTS INCURRED THIS 
PERIOD: refers to the "grand total" for the period. At a 
minimum it will be equal to the sum of the two previous 
amounts (incurred and paid costs). It could however be 
greater. There may be costs that are not allowable or 
allocable under the contract, but are experienced none the 
less. This figure is used to arrive at the estimate to 
complete mentioned above, so give this area some thought. 
2. COST OF INVOICED ITEMS: This is not the "face value" of 
current invoices, it is your "cost" (presumably a smaller 
figure). This will have to come from your accounting 
records, it cannot be derived from existing data in the 


program. 


99 


As a control function, a “draft Copy" of Chemiprocmee== 
payment request will be printed with a message appearing in 
the signature block stating that it is for review only and 
not for submission. This is a "forced" function, you cannot 
get the final copy without going through the "draft" phase. 
Use it to double check for mistakes. The whole point of the 
program in the first place is to reduce the number of forms 
returned for error correction. 

INVOICES, SHIPMENTS AND PAYMENTS: As with previous 
screens, a contract “number "will | becomes toa: If a 
corresponding contract is found, you will be asked which 
type of transaction you wish to enter. ee 14,.. 15 van 


16 show the input screens. There is no forced format for 


SP-1443 Invoice 


Enter Invoice Number: 
Enter Invoice Date: 
Enter Invoice Amount: 
Is All Data Correct?: 
Shipment # Invoiced: [ume 34 


fire there wore Shipments?: 4 





Contract No. N@@@8Q-87-C-BGBL Today’s Date 03/24/88 
Progress Pymt. No s8H6 Data is on Drive A:\ 





Figure 14. SP=-1443 Invoice 
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SP-1443 Shipment 


eer eupae Number: Migr 
Enter Shipment Date: ° 1 


Is All Data Correct ?: 


Enter CLIN & Shipped: 
Enter CLIN Quantity Shipped! 


Is All Data Correct?! 


Are there more CLINs?: 





Contract No. N@GQQG- afl C-@G81 Today’s Date @3/24/88 
Progress Pymt. No Data is on Drive A:\ 





Figure 15. SP-1443 Shipment 


§P-1443 Payments 


Enter Check Number! 
Enter Check Date: 
Enter Check amount: 
Enter Discount Amount: 


Is All Data Correct?: 


Contract No, N@@QQQ-87-C-0G1 Today’s Date 03/24/88 
Progress Pymt. No 386 Data is on Drive A:\ 





Figure 16. SP-1443 Payments 


OW 


invoice or shipment numbers. The hyphen supports’ the 
convention of three letters and four digits. For example, 
General Motors fourth invoice might be GMC-0004. The 
computer will accept any seven characters in these fields. 

CONTRACT MODIFICATIONS: Once the contract has been 
selected, the contract mod screen is selected (Figure 17). 
As with the original contract, monetary values are 
determined at the CLIN level. The current values for price, 
quantity and due date are displayed on the left side of the 
screen. Only those items you actually change will be changed 
on the disk (skip the items that remain the same by pressing 
<Pecunn= Some modifications may not effect money. Skip 
the CLIN block, and answer yes <Y> to the no $ change 
question. This will allow the user to make one more edit 
session on the contract section. 

GENERATE CONTRACT RECONCILIATION: As discussed in the 
beginning of this manual, the reconciliation option lets the 
user create a "spreadsheet" like chronological summary of 
the contract. All that is required of the user is to input 
a contract number and the program does the rest. This 
function is totally automated, and there are not user inputs 


required. 
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| $P-1443 Modification Screen 


| Modification Number,  iVirddl 


LL Naieee Date of Mod.: JEYA KYAT] 
Non-$ mods.?: 4 




















Old Qty: 188 New Qty: 
Old Price: 1,888.88 New Price: 
Old Due Date: 85/05/88 New Due Date: | 





Is All Data Correct?: ji 


Contract No. N@@@@0-87-C-@G@1 Today’s Date 03/24/88 
Progress Pymt. No sH8 Data is on Drive A:\ 








Figure 17. SP-1443 Modification Screen 
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